|
Search: id:A165891
|
|
|
| A165891 |
|
Polynomial infinite sum product coefficient triangle: p(x,n)=(1 + x)^n*(1 - x)^(n + 2)*Sum[k^(n + 1)*x^k, {k, 0, Infinity}]/x |
|
+0
1
|
|
| 1, 1, 2, 1, 1, 6, 10, 6, 1, 1, 14, 47, 68, 47, 14, 1, 1, 30, 176, 450, 606, 450, 176, 30, 1, 1, 62, 597, 2392, 5162, 6612, 5162, 2392, 597, 62, 1, 1, 126, 1926, 11382, 35967, 69132, 85492, 69132, 35967, 11382, 1926, 126, 1, 1, 254, 6043, 50892, 223785, 600546
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
COMMENT
|
Sequence based on the Euler number A008292 infinite sum/PolyLog[ -1-n,x]/x .
Row sums are:
{1, 4, 24, 192, 1920, 23040, 322560, 5160960, 92897280, 1857945600,
40874803200}
|
|
FORMULA
|
Alternative form:
p(x,n)=(1 + x)^n*(1 - x)^(n + 2)*PolyLog[ -1-n,x]/x
|
|
EXAMPLE
|
{1},
{1, 2, 1},
{1, 6, 10, 6, 1},
{1, 14, 47, 68, 47, 14, 1},
{1, 30, 176, 450, 606, 450, 176, 30, 1},
{1, 62, 597, 2392, 5162, 6612, 5162, 2392, 597, 62, 1},
{1, 126, 1926, 11382, 35967, 69132, 85492, 69132, 35967, 11382, 1926, 126, 1},
|
|
MATHEMATICA
|
Clear[p, x, n, m]
p[x_, n_] = (1 + x)^n*(1 - x)^(n + 2)*Sum[k^(n + 1)*x^k, {k, 0, Infinity}]/x;
Table[CoefficientList[FullSimplify[ExpandAll[p[x, n]]], x], {n, 0, 10}];
Flatten[%]
Table[Apply[Plus, CoefficientList[FullSimplify[ExpandAll[ p[x, n]]], x]], {n, 0, 10}]
|
|
CROSSREFS
|
A008292
Sequence in context: A137376 A039761 A144089 this_sequence A039763 A094262 A123554
Adjacent sequences: A165888 A165889 A165890 this_sequence A165892 A165893 A165894
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 29 2009
|
|
|
Search completed in 0.002 seconds
|
