OFFSET
0,8
LINKS
Peter Luschny, The P-transform.
FORMULA
EXAMPLE
Triangle starts:
1,
0, 1,
0, 1, 1,
0, 8, 9, 1,
0, 216, 251, 36, 1,
0, 13824, 16280, 2555, 100, 1,
0, 1728000, 2048824, 335655, 15055, 225, 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*T(n-1, k))) end:
for n from 0 to 6 do seq(T(n, k), k=0..n) od;
MATHEMATICA
T[n_, k_] := T[n, k] = Which[n == k, 1, k < 0 || k > n, 0, True, T[n - 1, k - 1] + (n - 1)^3 T[n - 1, k]];
Table[T[n, k], {n, 0, 8}, {k, 0, n}] // Flatten (* Jean-François Alcover, Jul 12 2019 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Peter Luschny, Mar 22 2016
STATUS
approved