|
Search: id:A142073
|
|
|
| A142073 |
|
A triangular sequence of coefficiencts of and infinite sum polynomial: p(x,n)=(1 - 2*x)^(n + 1)*Sum[k^n*(x/(1 - x))^k, {k, 0, Infinity}]/x; p(x,n)=(1 - 2*x)^(n + 1)*PolyLog[ -n,x/(1-x)]/x;. |
|
+0
1
|
|
| 1, 1, -1, 1, -1, 1, 1, -4, 2, 1, 7, -16, 8, 1, 21, -28, -26, 48, -16, 1, 51, 32, -356, 408, -136, 1, 113, 492, -1774, 1072, 912, -1088, 272, 1, 239, 2592, -5008, -6656, 20736, -15872, 3968, 1, 493, 10628, -50, -94432, 154528, -57856, -45056, 39680, -7936, 1, 1003, 38768, 108820, -621352, 455608, 848384
(list; graph; listen)
|
|
|
OFFSET
|
1,8
|
|
|
COMMENT
|
Except for n=0, the row sums are zero.
|
|
FORMULA
|
p(x,n)=(1 - 2*x)^(n + 1)*Sum[k^n*(x/(1 - x))^k, {k, 0, Infinity}]/x; p(x,n)=(1 - 2*x)^(n + 1)*PolyLog[ -n,x/(1-x)]/x; t(n,m)=coefficients(p(x,n)).
|
|
EXAMPLE
|
{1},
{1, -1},
{1, -1},
{1, 1, -4, 2},
{1, 7, -16, 8},
{1, 21, -28, -26, 48, -16},
{1, 51, 32, -356, 408, -136},
{1, 113, 492, -1774, 1072, 912, -1088,272},
{1, 239, 2592, -5008, -6656, 20736, -15872, 3968},
{1, 493, 10628, -50, -94432, 154528, -57856, -45056, 39680, -7936},
{1, 1003, 38768, 108820, -621352, 455608, 848384, -1538816, 884480, -176896}
|
|
MATHEMATICA
|
p[x_, n_] = (1 - 2*x)^(n + 1)*Sum[k^n*(x/(1 - x))^k, {k, 0, Infinity}]/x; Table[FullSimplify[ExpandAll[p[x, n]]], {n, 0, 10}]; Table[CoefficientList[FullSimplify[ExpandAll[p[x, n]]], x], {n, 0, 10}]; Flatten[%]
|
|
CROSSREFS
|
Cf. A141720.
Sequence in context: A046741 A136249 A142147 this_sequence A135294 A117016 A013659
Adjacent sequences: A142070 A142071 A142072 this_sequence A142074 A142075 A142076
|
|
KEYWORD
|
sign,uned
|
|
AUTHOR
|
Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Sep 15 2008
|
|
|
Search completed in 0.002 seconds
|
