OFFSET
0,3
EXAMPLE
[0] 1;
[1] 0, 2;
[2] 0, 6, 12;
[3] 0, 20, 180, 120;
[4] 0, 70, 2380, 5040, 1680;
[5] 0, 252, 31500, 163800, 151200, 30240;
[6] 0, 924, 425964, 4989600, 9702000, 4989600, 665280;
[7] 0, 3432, 5885880, 150174024, 554954400, 554954400, 181621440, 17297280;
MATHEMATICA
Z[n_] := Flatten[Table[{0, Binomial[2 j, j]}, {j, 1, n}]];
T[n_, k_] := BellY[2 n, k, Z[2 n - k]];
Table[T[n, k], {n, 0, 6}, {k, 0, n}] // TableForm
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Peter Luschny, Mar 12 2022
STATUS
approved