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

%I #8 Nov 18 2018 15:04:27

%S 1,1,3,1,12,975,1,30,10416,43698160,1,60,63550,1259394500,

%T 495117695312625,1,105,276060,19500470010,39435754026361680,

%U 2386830808433862941972976,1,168,952413,197321108600,1595560551370855083,526069994452248286902543528,7282228632205891036170867431546711227

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

%t f[n_] := Table[Binomial[j^k,k]/j, {j, n, n}, {k,1, j}] ; Flatten[Array[f, 11]] (* _Stefano Spezia_, Nov 17 2018 *)

%o (PARI) for(j=1,7,for(k=1,j,print1(binomial(j^k,k)/j,", ")))

%Y Cf. A027480.

%K nonn,tabl,easy

%O 1,3

%A _Hugo Pfoertner_, Nov 17 2018