|
| |
|
|
A132950
|
|
Triangle read by rows: t(n,m) = (m+1)^n*m^(n*(n-1)/2).
|
|
1
|
|
|
|
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
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,3
|
|
|
LINKS
|
|
|
|
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);
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
