OFFSET
1,3
MATHEMATICA
f[n_] := Table[Binomial[j^k, k]/j, {j, n, n}, {k, 1, j}] ; Flatten[Array[f, 11]] (* Stefano Spezia, Nov 17 2018 *)
PROG
(PARI) for(j=1, 7, for(k=1, j, print1(binomial(j^k, k)/j, ", ")))
CROSSREFS
KEYWORD
AUTHOR
Hugo Pfoertner, Nov 17 2018
STATUS
approved