A177984 A symmetrical triangle of polynomial coefficients:p(x,n)=If[n == 0, 1, (1 - x)^(n + 1)*Sum[((2*k + 1)^n + (k + 1)^n + k^n)*x^k, {k, 0, Infinity}]/2]

1, 1, 1, 1, 4, 1, 1, 14, 14, 1, 1, 44, 126, 44, 1, 1, 132, 887, 887, 132, 1, 1, 390, 5451, 12076, 5451, 390, 1, 1, 1150, 30984, 131665, 131665, 30984, 1150, 1, 1, 3400, 168076, 1252600, 2353126, 1252600, 168076, 3400, 1, 1, 10088, 885725, 10905407, 34828859

Offset

0,5

Comments

Row sums are:

{1, 2, 6, 30, 216, 2040, 23760, 327600, 5201280, 93260160, 1861574400,...}.

Links

Table of n, a(n) for n=0..49.

Formula

p(x,n)=If[n == 0, 1, (1 - x)^(n + 1)*Sum[((2*k + 1)^n + (k + 1)^n + k^n)*x^k, {k, 0, Infinity}]/2];

t(n,m)=coefficients(p(x,n))=If[n==0,1,(A008518(n,m)+A060187(n,m))/2]

Example

{1},
{1, 1},
{1, 4, 1},
{1, 14, 14, 1},
{1, 44, 126, 44, 1},
{1, 132, 887, 887, 132, 1},
{1, 390, 5451, 12076, 5451, 390, 1},
{1, 1150, 30984, 131665, 131665, 30984, 1150, 1},
{1, 3400, 168076, 1252600, 2353126, 1252600, 168076, 3400, 1},
{1, 10088, 885725, 10905407, 34828859, 34828859, 10905407, 885725, 10088, 1},
{1, 30026, 4582497, 89401968, 454344414, 764856588, 454344414, 89401968, 4582497, 30026, 1}

Mathematica

p[x_, n_] = If[n == 0, 1, (1 - x)^(n + 1)*Sum[((2* k + 1)^n + (k + 1)^n + k^n)*x^k, {k, 0, Infinity}]/2];
Table[CoefficientList[FullSimplify[ExpandAll[p[x, n]]], x], {n, 0, 10}];
Flatten[%]

Crossrefs

Cf. A008518, A060187

Sequence in context: A179454 A058711 A202906 * A157013 A346876 A141724

Adjacent sequences: A177981 A177982 A177983 * A177985 A177986 A177987

Keyword

nonn,tabl,uned

Author

Roger L. Bagula, May 16 2010

Status

approved