OFFSET
-1,8
COMMENTS
EXAMPLE
0
0, 0
1, 1, 1
1, 2, 3, 4
1, 4, 9, 16, 25
1, 8, 27, 64, 125, 216
2, 17, 82, 257, 626, 1297, 2402
3, 36, 249, 1032, 3135, 7788, 16821, 32784
MATHEMATICA
(* define the polynomial*) p[x_] = x/(1 - m*x - x^4); (* Taylor derivative expansion of the polynomial*) a = Table[Flatten[{{p[0]}, Table[Coefficient[Series[p[x], {x, 0, 30}], x^n], {n, 1, 10}]}], {m, 1, 10}] (*antidiagonal expansion to give triangular function*) b = Join[{{ 0}}, Delete[Table[Table[a[[n]][[m]], {n, 1, m + 1}], {m, 0, 9}], 1]] Flatten[b]
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Roger L. Bagula, Apr 14 2006
EXTENSIONS
Offset set to -1 and crossrefs to columns added by Assoc. Eds. of the OEIS, Jun 15 2010
STATUS
approved