|
Search: id:A154980
|
|
|
| A154980 |
|
Polynomial recursion:m=1; p(x,n)=(x + 1)*p(x, n - 1) + 2^(m + n - 1)*x*p(x, n - 2). |
|
+0
1
|
|
| 1, 1, 1, 1, 6, 1, 1, 15, 15, 1, 1, 32, 126, 32, 1, 1, 65, 638, 638, 65, 1, 1, 130, 2751, 9340, 2751, 130, 1, 1, 259, 11201, 93755, 93755, 11201, 259, 1, 1, 516, 44740, 809212, 2578550, 809212, 44740, 516, 1, 1, 1029, 177864, 6588864, 51390322, 51390322
(list; table; graph; listen)
|
|
|
OFFSET
|
0,5
|
|
|
COMMENT
|
Row sums are:
{1, 2, 8, 32, 192, 1408, 15104, 210432, 4287488, 116316160, 4623020032,...}.
|
|
FORMULA
|
m=1; p(x,n)=(x + 1)*p(x, n - 1) + 2^(m + n - 1)*x*p(x, n - 2);
t(n,m)=coefficients(p(x,n))
|
|
EXAMPLE
|
{1},
{1, 1},
{1, 6, 1},
{1, 15, 15, 1},
{1, 32, 126, 32, 1},
{1, 65, 638, 638, 65, 1},
{1, 130, 2751, 9340, 2751, 130, 1},
{1, 259, 11201, 93755, 93755, 11201, 259, 1},
{1, 516, 44740, 809212, 2578550, 809212, 44740, 516, 1},
{1, 1029, 177864, 6588864, 51390322, 51390322, 6588864, 177864, 1029, 1},
{1, 2054, 707277, 52580488, 886612274, 2743215844, 886612274, 52580488, 707277, 2054, 1}
|
|
MATHEMATICA
|
Clear[p, n, m, x]; m = 1; p[x, 0] = 1; p[x, 1] = x + 1;
p[x_, n_] := p[x, n] = (x + 1)*p[x, n - 1] + 2^(m + n - 1)*x*p[x, n - 2];
Table[ExpandAll[p[x, n]], {n, 0, 10}];
Table[CoefficientList[ExpandAll[p[x, n]], x], {n, 0, 10}];
Flatten[%]
|
|
CROSSREFS
|
Sequence in context: A143210 A152238 A086645 this_sequence A166344 A146766 A146958
Adjacent sequences: A154977 A154978 A154979 this_sequence A154981 A154982 A154983
|
|
KEYWORD
|
nonn,tabl,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 18 2009
|
|
|
Search completed in 0.002 seconds
|
