OFFSET
0,5
COMMENTS
Row sums are:{1, 2, 23550, 43415946, 764706337542, 12915928055056194,
589740008382887355630, 34621385290631641181980314,
3529900361215340810891790303798, 482387142371699171544762551301105426,
95463751455117339958648491169567658521950,...}.
EXAMPLE
{1},
{1, 1},
{1, 23548, 1},
{1, 21707972, 21707972, 1},
{1, 10708911188, 743288515164, 10708911188, 1},
{1, 4261002128223, 6453703025399873, 6453703025399873, 4261002128223, 1}
MATHEMATICA
p[x_, n_] = (1 - x)^(n + 1)*Sum[((2*k + 1)^n)*x^k, {k, 0, Infinity}];
t[n_, m_] := CoefficientList[FullSimplify[ExpandAll[p[x, n]]], x][[m + 1]];
Table[Table[t[n, 3*m], {m, 0, Floor[n/3]}], {n, 0, 30, 3}];
Flatten[%]
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Roger L. Bagula, Dec 13 2010
STATUS
approved