OFFSET
0,1
COMMENTS
Row sums are:
{2, 6, 120, 5040, 332640, 30270240, 3528645120, 502831929600, 84810985459200,
16538142164544000, 3662446755711744000,...}
FORMULA
p(x,n)=(-1)^(n + 1)*(x - 1)^(3*n + 1)*Sum[(Binomial[m, n]* Binomial[m + 1, n + 1]/(m - n + 1))*(m + 1)^ n*x^m, {m, 0, Infinity}]/(x^n);
t(n,m)=coefficients(p(x,n)+x^n*p(1/x,n))
EXAMPLE
{2},
{3, 3},
{10, 50, 50, 10},
{65, 680, 1775, 1775, 680, 65},
{626, 11542, 53598, 100554, 100554, 53598, 11542, 626},
{7777, 229187, 1745492, 5202512, 7950152, 7950152, 5202512, 1745492, 229187, 7777},
{117650, 5106474, 59432614, 274397694, 612424944, 812843184, 812843184, 612424944, 274397694, 59432614, 5106474, 117650},
{2097153, 126054126, 2097410499, 14263234722, 47078954505, 85496057460, 102352156335, 102352156335, 85496057460, 47078954505, 14263234722, 2097410499, 126054126, 2097153},
{43046722, 3423843470, 77265218250, 732387384550, 3452145148910, 8922393746178, 13871595495670, 15346238845850, 15346238845850, 13871595495670, 8922393746178, 3452145148910, 732387384550, 77265218250, 3423843470, 43046722},
{1000000001, 101687151137, 2990117810108, 37744616613704, 242611866238742, 872095278964910, 1868330192416688, 2571940466451356, 2673255856625354, 2673255856625354, 2571940466451356, 1868330192416688, 872095278964910, 242611866238742, 37744616613704, 2990117810108, 101687151137, 1000000001},
{25937424602, 3282485943706, 121943246483490, 1978300682949474, 16662362139459228, 80125514615556636, 233339486568144348, 430592264194283100, 537393557602280652, 531006640383346764, 531006640383346764, 537393557602280652, 430592264194283100, 233339486568144348, 80125514615556636, 16662362139459228, 1978300682949474, 121943246483490, 3282485943706, 25937424602}
MATHEMATICA
p[x_, n_] = (-1)^(n + 1)*(x - 1)^( 3*n + 1)*Sum[(Binomial[m, n]*Binomial[m + 1, n + 1]/(m - n + 1))*(m + 1)^n*x^m, {m, 0, Infinity}]/(x^n);
Table[FullSimplify[ExpandAll[p[x, n]]], {n, 0, 10}];
a = Table[CoefficientList[FullSimplify[ExpandAll[p[x, n]]], x], {n, 0, 10}];
Flatten[%]
CROSSREFS
KEYWORD
AUTHOR
Roger L. Bagula, Jan 26 2009
STATUS
approved