OFFSET
0,5
LINKS
Peter Luschny, The P-transform.
FORMULA
EXAMPLE
Triangle starts:
[1]
[0, 1]
[0, 2, 1]
[0, 18, 18, 1]
[0, 504, 648, 72, 1]
[0, 32760, 47160, 7200, 200, 1]
[0, 4127760, 6305040, 1141560, 45000, 450, 1]
MAPLE
T := proc(n, k) option remember;
`if`(n=k, 1,
`if`(k<0 or k>n, 0,
T(n-1, k-1) + ((n-1)^3+k^3) * T(n-1, k) )) end:
for n from 0 to 6 do seq(T(n, k), k=0..n) od;
MATHEMATICA
T[n_, n_] = 1; T[_, 0] = 0; T[n_, k_] /; 0 < k < n := T[n, k] = T[n-1, k-1] + ((n-1)^3 + k^3)*T[n-1, k]; T[_, _] = 0;
Table[T[n, k], {n, 0, 8}, {k, 0, n}] // Flatten (* Jean-François Alcover, Jun 20 2017 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Peter Luschny, Mar 22 2016
STATUS
approved