OFFSET
0,13
FORMULA
T(n,k) = A000009(n^k).
EXAMPLE
Square array begins:
1, 1, 1, 1, 1, ...
1, 1, 1, 1, 1, ...
1, 1, 2, 6, 32, ...
1, 2, 8, 192, 84756, ...
1, 2, 32, 16444, 11784471548, ...
MATHEMATICA
Table[If[n == k == 0, 1, PartitionsQ[#^k] &[n - k]], {n, 0, 9}, {k, n, 0, -1}] // Flatten (* Michael De Vlieger, Sep 09 2021 *)
PROG
(PARI) T(n, k) = polcoef(prod(j=1, n^k, 1+x^j+x*O(x^(n^k))), n^k);
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Seiichi Manyama, Sep 09 2021
STATUS
approved