|
Search: id:A137339
|
|
|
| A137339 |
|
A triangular sequence from a functional coefficient expansion of a raising factorial type: p(x,t)=1/(1-t)^(m*x);m=3. |
|
+0
1
|
|
| 1, 0, 3, 0, 3, 9, 0, 6, 27, 27, 0, 18, 99, 162, 81, 0, 72, 450, 945, 810, 243, 0, 360, 2466, 6075, 6885, 3645, 729, 0, 2160, 15876, 43848, 59535, 42525, 15309, 2187, 0, 15120, 117612, 354564, 548289, 476280, 234738, 61236, 6561, 0, 120960, 986256, 3189348
(list; table; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
COMMENT
|
Row sums are:
{1, 3, 12, 60, 360, 2520, 20160, 181440, 1814400, 19958400, 239500800}
|
|
REFERENCES
|
Steve Roman, The Umbral Calculus, Dover Publications, New York (1984), pp. 62 - 63
|
|
FORMULA
|
p(x,t)=1/(1-t)^(m*x)=Sum[s(x,n)*t^n/n!;m=3. out_n,m=n!*Coefficients( s(x,n)).
|
|
EXAMPLE
|
{1},
{0, 3},
{0, 3, 9},
{0, 6, 27, 27},
{0, 18, 99, 162, 81},
{0, 72, 450, 945, 810, 243},
{0, 360, 2466, 6075, 6885, 3645, 729},
{0, 2160, 15876, 43848, 59535, 42525, 15309, 2187},
{0, 15120, 117612, 354564, 548289, 476280, 234738, 61236, 6561},
{0, 120960, 986256, 3189348, 5450004, 5455107, 3306744, 1194102, 236196, 19683},
{0, 1088640, 9239184, 31662900, 58618080, 65445975, 46126017, 20667150, 5708070, 885735, 59049}
|
|
MATHEMATICA
|
Clear[p, g, m]; m = 3; p[t_] = 1/(1 - t)^(m*x); Table[ ExpandAll[n!SeriesCoefficient[ Series[p[t], {t, 0, 30}], n]], {n, 0, 10}]; a = Table[n!* CoefficientList[SeriesCoefficient[ Series[p[t], {t, 0, 30}], n], x], {n, 0, 10}]; Flatten[a]
|
|
CROSSREFS
|
Sequence in context: A010030 A117940 A099093 this_sequence A132330 A117078 A021333
Adjacent sequences: A137336 A137337 A137338 this_sequence A137340 A137341 A137342
|
|
KEYWORD
|
nonn,uned,tabl
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Apr 20 2008
|
|
|
Search completed in 0.002 seconds
|
