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.
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
Roger L. Bagula and Mats Granvik, Dec 12 2010
STATUS
approved