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,5

Comments

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

589740008382887355630, 34621385290631641181980314,

3529900361215340810891790303798, 482387142371699171544762551301105426,

95463751455117339958648491169567658521950,...}.

Links

Table of n, a(n) for n=0..25.

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

Cf.A060187

Sequence in context: A253728 A227483 A237508 * A304652 A230361 A069334

Adjacent sequences: A177824 A177825 A177826 * A177828 A177829 A177830

Keyword

nonn,tabl

Author

Roger L. Bagula, Dec 13 2010

Status

approved