|
| |
|
|
A177827
|
|
Sub-triangle of A060187 formed by taking every third-indexed term of every third row.
|
|
0
|
|
|
|
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
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
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: A189656 A204074 A031847 * A069334 A118061 A200437
Adjacent sequences: A177824 A177825 A177826 * A177828 A177829 A177830
|
|
|
KEYWORD
|
nonn,tabl
|
|
|
AUTHOR
|
Roger Bagula, Dec 13 2010
|
|
|
STATUS
|
approved
|
| |
|
|
