A168620 Table T(n,k) with the coefficient [x^k] of the polynomial 5*(x+1)^n - 4*(x^n+1) in column 0<=k<=n. T(0,0)=1.

1, 1, 1, 1, 10, 1, 1, 15, 15, 1, 1, 20, 30, 20, 1, 1, 25, 50, 50, 25, 1, 1, 30, 75, 100, 75, 30, 1, 1, 35, 105, 175, 175, 105, 35, 1, 1, 40, 140, 280, 350, 280, 140, 40, 1, 1, 45, 180, 420, 630, 630, 420, 180, 45, 1, 1, 50, 225, 600, 1050, 1260, 1050, 600, 225, 50, 1

Offset

0,5

Comments

Row sums are apparently in A154252.

Links

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

Example

1;
1, 1;
1, 10, 1;
1, 15, 15, 1;
1, 20, 30, 20, 1;
1, 25, 50, 50, 25, 1;
1, 30, 75, 100, 75, 30, 1;
1, 35, 105, 175, 175, 105, 35, 1;
1, 40, 140, 280, 350, 280, 140, 40, 1;
1, 45, 180, 420, 630, 630, 420, 180, 45, 1;
1, 50, 225, 600, 1050, 1260, 1050, 600, 225, 50, 1;

Mathematica

m = 2; p[x_, n_] := If[n == 0, 1, (2*m + 1)(x + 1)^n - 2*m*(x^n + 1)]
a = Table[CoefficientList[p[x, n], x], {n, 0, 10}];
Flatten[a]

Crossrefs

Sequence in context: A351647 A168644 A378544 * A143683 A146773 A202941

Adjacent sequences: A168617 A168618 A168619 * A168621 A168622 A168623

Keyword

nonn,tabl,easy

Author

Roger L. Bagula and Gary W. Adamson, Dec 01 2009

Status

approved