|
| |
|
|
A166344
|
|
Coefficients of recursive differential polynomial:p(x,3)=x*(x^2 + 6*x + 1)/(1 - x)^4;p(x, n) = x*D[p[x, n - 1], x]
|
|
0
| |
|
|
1, 1, 1, 1, 6, 1, 1, 15, 15, 1, 1, 34, 90, 34, 1, 1, 73, 406, 406, 73, 1, 1, 152, 1583, 3248, 1583, 152, 1, 1, 311, 5661, 20907, 20907, 5661, 311, 1, 1, 630, 19160, 117594, 209070, 117594, 19160, 630, 1, 1, 1269, 62520, 604496, 1750914, 1750914, 604496, 62520
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,5
|
|
|
COMMENTS
| Row sums are:{1, 2, 8, 32, 160, 960, 6720, 53760, 483840, 4838400, 53222400,...}
|
|
|
REFERENCES
| Douglas C. Montgomery and Lynwood A. Johnson, Forecasting and Time Series Analysis, MaGraw-Hill, New York, 1976, page 91
|
|
|
FORMULA
| p(x,0)= 1/(1 - x);
p(x,1)= x/(1 - x)^2;
p(x,2)= x*(1 + x)/(1 - x)^3;
p(x,3)= x*(x^2 + 6*x + 1)/(1 - x)^4;
p(x,n)= x*D[p[x, n - 1], x]
|
|
|
EXAMPLE
| {1},
{1, 1},
{1, 6, 1},
{1, 15, 15, 1},
{1, 34, 90, 34, 1},
{1, 73, 406, 406, 73, 1},
{1, 152, 1583, 3248, 1583, 152, 1},
{1, 311, 5661, 20907, 20907, 5661, 311, 1},
{1, 630, 19160, 117594, 209070, 117594, 19160, 630, 1},
{1, 1269, 62520, 604496, 1750914, 1750914, 604496, 62520, 1269, 1},
{1, 2548, 198981, 2918144, 12986042, 21010968, 12986042, 2918144, 198981, 2548, 1}
|
|
|
MATHEMATICA
| p[x_, 0] := 1/(1 - x);
p[x_, 1] := x/(1 - x)^2;
p[x_, 2] := x*(1 + x)/(1 - x)^3;
p[x_, 3] := x*(x^2 + 6*x + 1)/(1 - x)^4;
p[x_, n_] := p[x, n] = x*D[p[x, n - 1], x]
a = Table[CoefficientList[FullSimplify[ExpandAll[(1 - x)^(n + 1)*p[x, n]/x]], x], {n, 1, 11}];
Flatten[a]
Table[Apply[Plus, CoefficientList[FullSimplify[ExpandAll[(1 - x)^(n + 1)*p[x, n]/x]], x]], {n, 1, 11}];
|
|
|
CROSSREFS
| A123125
Sequence in context: A086645 A168291 A154980 * A146766 A176152 A146958
Adjacent sequences: A166341 A166342 A166343 * A166345 A166346 A166347
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Oct 12 2009
|
| |
|
|
