|
|
A177802
|
|
A row reversed version of A177517
|
|
0
|
|
|
1, 1, 1, 0, 1, 1, 1, 2, 0, 1, 3, 2, 1, 4, 5, 1, 1, 5, 9, 6, 1, 6, 14, 15, 5, 1, 7, 20, 29, 20, 1, 8, 27, 49, 49, 22, 1, 9, 35, 76, 98, 71
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,8
|
|
COMMENTS
|
The row reversal allows getting rid of the initial zeros in A177517
and shows the polynomial structure of the sequence more clearly.
|
|
LINKS
|
|
|
EXAMPLE
|
{1},
{1},
{1, 0},
{1, 1},
{1, 2, 0},
{1, 3, 2},
{1, 4, 5, 1},
{1, 5, 9, 6},
{1, 6, 14, 15, 5},
{1, 7, 20, 29, 20},
{1, 8, 27, 49, 49, 22},
{1, 9, 35, 76, 98, 71}
|
|
MATHEMATICA
|
Clear[t, n, k]
t[n_, 1] := If[n == 1, 1, 0]
t[n_, k_] := t[n, k] = Sum[t[n - i, k - 1], {i, 1, k - 1}]
a = Table[Reverse[Table[t[n, k], {k, 1, n}]], {n, 1, 12}];
Table[Table[a[[n, k]], {k, 1, Floor[(n + 1)/2]}], {n, 1, Length[a]}];
Flatten[%]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,tabf
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|