|
Search: id:A142706
|
|
|
| A142706 |
|
Coefficients of derivatives of Eulerian number polynomials (A008292): p(x,n)=Sum[(-1)^j Binomial[n + 1, j](k + 1 - j)^n, {j, 0, k + 1}]; p'(x,n)=(d/dx)p{x,n). |
|
+0
1
|
|
| 1, 4, 2, 11, 22, 3, 26, 132, 78, 4, 57, 604, 906, 228, 5, 120, 2382, 7248, 4764, 600, 6, 247, 8586, 46857, 62476, 21465, 1482, 7, 502, 29216, 264702, 624760, 441170, 87648, 3514, 8, 1013, 95680, 1365576, 5241416, 6551770, 2731152, 334880, 8104, 9
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Row sums are: A001286 ( Lah numbers: (n-1)*n!/2. );
{0, 1, 6, 36, 240, 1800, 15120, 141120, 1451520, 16329600}.
|
|
FORMULA
|
p(x,n)=Sum[(-1)^j Binomial[n + 1, j](k + 1 - j)^n, {j, 0, k + 1}]; p'(x,n)=(d/dx)p{x,n); t(n,m)=Coefficients(p'(x,n)).
|
|
EXAMPLE
|
{1},
{4, 2},
{11, 22, 3},
{26, 132, 78, 4},
{57, 604, 906, 228, 5},
{120, 2382, 7248, 4764, 600, 6},
{247, 8586, 46857, 62476, 21465, 1482, 7},
{502, 29216, 264702, 624760, 441170, 87648, 3514, 8},
{1013, 95680, 1365576, 5241416, 6551770, 2731152, 334880, 8104, 9}
|
|
MATHEMATICA
|
t[n_, k_] := Sum[(-1)^j Binomial[n + 1, j](k + 1 - j)^n, {j, 0, k + 1}]; Table[D[Sum[t[n, k]*x^k, {k, 0, n - 1}], x], {n, 1, 10}]; Table[CoefficientList[D[Sum[t[n, k]*x^k, {k, 0, n - 1}], x], x], {n, 1, 10}]; Flatten[%]
|
|
CROSSREFS
|
Cf. A008292, A001286.
Sequence in context: A163918 A154699 A094406 this_sequence A092952 A010318 A137447
Adjacent sequences: A142703 A142704 A142705 this_sequence A142707 A142708 A142709
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Sep 24 2008
|
|
|
Search completed in 0.002 seconds
|
