A321697 T(j,k) = binomial(j^k,k)/j, j <= m, k <= j, written as triangle T(j,k).

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

Links

Table of n, a(n) for n=1..28.

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

Adjacent sequences: A321694 A321695 A321696 * A321698 A321699 A321700

Keyword

nonn,tabl,easy

Author

Hugo Pfoertner, Nov 17 2018

Status

approved