OFFSET
1,3
LINKS
Seiichi Manyama, Antidiagonals n = 1..52, flattened
FORMULA
L.g.f. of column k: -log(Product_{j>=1} (1 - (j^k*x)^j)^(1/j)).
EXAMPLE
Square array begins:
1, 1, 1, 1, 1, ...
2, 5, 17, 65, 257, ...
2, 28, 730, 19684, 531442, ...
3, 273, 65793, 16781313, 4295032833, ...
2, 3126, 9765626, 30517578126, 95367431640626, ...
MATHEMATICA
T[n_, k_] := DivisorSum[n, #^(k*n) &]; Table[T[k, n - k], {n, 1, 9}, {k, 1, n}] // Flatten (* Amiram Eldar, May 11 2021 *)
PROG
(PARI) T(n, k) = sumdiv(n, d, d^(k*n));
matrix(5, 5, n, k, T(n, k-1)) \\ Michel Marcus, Jun 08 2019
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Seiichi Manyama, Jun 08 2019
STATUS
approved