A132950 Triangle read by rows: t(n,m) = (m+1)^n*m^(n*(n-1)/2).

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, 1, 8, 448, 175616, 481890304, 9256148959232, 1244544764462497792, 1171355575953987221848064

Offset

0,3

Links

Table of n, a(n) for n=0..35.

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

Cf. A132945.

Sequence in context: A209215 A000618 A379941 * A197190 A376084 A247482

Adjacent sequences: A132947 A132948 A132949 * A132951 A132952 A132953

Keyword

nonn,easy,tabl

Author

Roger L. Bagula, Nov 19 2007

Status

approved