|
Search: id:A138076
|
|
|
| A138076 |
|
A signed version of A060187 obtained by taking the Z-transform of p(t,x)=Exp[t*(1+2*x)]. |
|
+0
1
|
|
| 1, -1, 1, 1, -6, 1, -1, 23, -23, 1, 1, -76, 230, -76, 1, -1, 237, -1682, 1682, -237, 1, 1, -722, 10543, -23548, 10543, -722, 1, -1, 2179, -60657, 259723, -259723, 60657, -2179, 1, 1, -6552, 331612, -2485288, 4675014, -2485288, 331612, -6552, 1, -1
(list; table; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
EXAMPLE
|
{1},
{-1, 1},
{1, -6, 1},
{-1, 23, -23, 1},
{1, -76, 230, -76, 1},
{-1, 237, -1682, 1682, -237, 1},
{1, -722, 10543, -23548, 10543, -722, 1},
{-1, 2179, -60657, 259723, -259723, 60657, -2179, 1},
{1, -6552, 331612, -2485288, 4675014, -2485288, 331612, -6552, 1},
{-1, 19673, -1756340, 21707972, -69413294, 69413294, -21707972, 1756340, -19673, 1},
{1, -59038, 9116141, -178300904, 906923282, -1527092468, 906923282, -178300904, 9116141, -59038, 1}
|
|
MATHEMATICA
|
p[t_] = Exp[t]*x/(Exp[2*t] + x);
a = Table[ CoefficientList[FullSimplify[ExpandAll[(n!*( 1 + x)^(n + 1)/x)*SeriesCoefficient[ Series[p[ t], {t, 0, 30}], n]]], x], {n, 0, 10}];
Flatten[a]
|
|
KEYWORD
|
sign,tabl,new
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 26 2009
|
|
|
Search completed in 0.002 seconds
|
