A177827 Sub-triangle of A060187 formed by taking every third-indexed term of every third row.

1, 1, 1, 1, 23548, 1, 1, 21707972, 21707972, 1, 1, 10708911188, 743288515164, 10708911188, 1, 1, 4261002128223, 6453703025399873, 6453703025399873, 4261002128223, 1, 1, 1556000598766224, 30920009116692763140, 527896878148304296900, 30920009116692763140

Offset: 0

Author

Roger L. Bagula, Dec 13 2010

Keywords

• nonn
• tabl

Comments

Row sums are:{1, 2, 23550, 43415946, 764706337542, 12915928055056194,

589740008382887355630, 34621385290631641181980314,

3529900361215340810891790303798, 482387142371699171544762551301105426,

95463751455117339958648491169567658521950,...}.

Examples

			{1},
{1, 1},
{1, 23548, 1},
{1, 21707972, 21707972, 1},
{1, 10708911188, 743288515164, 10708911188, 1},
{1, 4261002128223, 6453703025399873, 6453703025399873, 4261002128223, 1}
		

Crossrefs

Cf.A060187

Programs

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[%]