%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