OFFSET
0,3
FORMULA
If m==0, t(n,0)=1, otherwise t(n,m) = (m+1)^n*m^(n*(n-1)/2).
EXAMPLE
{1},
{1, 2},
{1, 3, 18},
{1, 4, 48, 1728},
{1, 5, 100, 8000, 2560000},
{1, 6, 180, 27000, 20250000, 75937500000},
{1, 7, 294, 74088, 112021056, 1016255020032, 55316793250381824}
MATHEMATICA
a = Table[Table[If[m == 0, 1, (m + 1)^n*m^(n*(n - 1)/2)], {n, 0, m}], {m, 0, 10}];
Flatten[a]
PROG
(PARI) t(n, m)=if (m==0, 1, (m+1)^n*m^(n*(n-1)/2));
for (i=0, 7, for (j=0, i, print1(t(j, i), ", ")); print);
\\ Michel Marcus, Jun 03 2023
CROSSREFS
KEYWORD
AUTHOR
Roger L. Bagula, Nov 19 2007
STATUS
approved