login
A321697
T(j,k) = binomial(j^k,k)/j, j <= m, k <= j, written as triangle T(j,k).
0
1, 1, 3, 1, 12, 975, 1, 30, 10416, 43698160, 1, 60, 63550, 1259394500, 495117695312625, 1, 105, 276060, 19500470010, 39435754026361680, 2386830808433862941972976, 1, 168, 952413, 197321108600, 1595560551370855083, 526069994452248286902543528, 7282228632205891036170867431546711227
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
Cf. A027480.
Sequence in context: A019232 A185697 A348829 * A263008 A016479 A248843
KEYWORD
nonn,tabl,easy
AUTHOR
Hugo Pfoertner, Nov 17 2018
STATUS
approved