A168623 Table T(n,k) read by rows: Coefficients [x^k] of the polynomial 9*(x+1)^n -8*(x^n+1); T(0,0)=1.

1, 1, 1, 1, 18, 1, 1, 27, 27, 1, 1, 36, 54, 36, 1, 1, 45, 90, 90, 45, 1, 1, 54, 135, 180, 135, 54, 1, 1, 63, 189, 315, 315, 189, 63, 1, 1, 72, 252, 504, 630, 504, 252, 72, 1, 1, 81, 324, 756, 1134, 1134, 756, 324, 81, 1, 1, 90, 405, 1080, 1890, 2268, 1890, 1080, 405, 90, 1

Offset

0,5

Comments

Row sums are 9*2^n-16 if n>0: 1, 2, 20, 56, 128, 272, 560,...

Links

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

Example

1;
1, 1;
1, 18, 1;
1, 27, 27, 1;
1, 36, 54, 36, 1;
1, 45, 90, 90, 45, 1;
1, 54, 135, 180, 135, 54, 1;
1, 63, 189, 315, 315, 189, 63, 1;
1, 72, 252, 504, 630, 504, 252, 72, 1;
1, 81, 324, 756, 1134, 1134, 756, 324, 81, 1;
1, 90, 405, 1080, 1890, 2268, 1890, 1080, 405, 90, 1;

Mathematica

m = 4; 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

Cf. A132047

Sequence in context: A040326 A040325 A040324 * A146774 A174451 A144405

Adjacent sequences: A168620 A168621 A168622 * A168624 A168625 A168626

Keyword

nonn,tabl

Author

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

Extensions

Keyword:tabl and row sum formula added - The Assoc. Editors of the OEIS, Dec 05 2009

Status

approved