OFFSET
0,3
EXAMPLE
Square array begins:
1, 0, 0, 0, 0, 0, ...
2, 1, 1, 1, 1, 1, ...
7, 6, 8, 12, 20, 36, ...
34, 39, 63, 117, 243, 549, ...
209, 292, 544, 1168, 2800, 7312, ...
1546, 2505, 5225, 12525, 33425, 97125, ...
MATHEMATICA
T[n_, k_] := Sum[If[j == k == 0, 1, j^k] * (n - j)! * Binomial[n, j]^2, {j, 0, n}]; Table[T[k, n - k], {n, 0, 9}, {k, 0, n}] // Flatten (* Amiram Eldar, Feb 06 2021 *)
PROG
(PARI) T(n, k) = sum(j=0, n, j^k*(n-j)!*binomial(n, j)^2);
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Seiichi Manyama, Feb 06 2021
STATUS
approved