|
Search: id:A153188
|
|
|
| A153188 |
|
Triangle sequence: t(n,m)=Product[m*k, {k, 1, n}]. |
|
+0
1
|
|
| 1, 2, 8, 3, 18, 162, 4, 32, 384, 6144, 5, 50, 750, 15000, 375000, 6, 72, 1296, 31104, 933120, 33592320, 7, 98, 2058, 57624, 2016840, 84707280, 4150656720, 8, 128, 3072, 98304, 3932160, 188743680, 10569646080, 676457349120, 9, 162, 4374, 157464
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Row sums are:
{1, 10, 183, 6564, 390805, 34557918, 4237440627, 687219772552,
142347286888209, 36654963132246210,...}
|
|
FORMULA
|
t(n,m)=Product[m*k, {k, 1, n}]; t(n,m)=m^n*n!.
|
|
EXAMPLE
|
{1},
{2, 8},
{3, 18, 162},
{4, 32, 384, 6144},
{5, 50, 750, 15000, 375000},
{6, 72, 1296, 31104, 933120, 33592320},
{7, 98, 2058, 57624, 2016840, 84707280, 4150656720},
{8, 128, 3072, 98304, 3932160, 188743680, 10569646080, 676457349120},
{9, 162, 4374, 157464, 7085880, 382637520, 24106163760, 1735643790720, 140587147048320},
{10, 200, 6000, 240000, 12000000, 720000000, 50400000000, 4032000000000, 362880000000000, 36288000000000000}
|
|
MATHEMATICA
|
t[n_, m_] =Product[m*k, {k, 1, n}];
Table[Table[t[n, m], {n, 1, m}], {m, 1, 10}];
Flatten[%]
|
|
CROSSREFS
|
A008544,A000165
Sequence in context: A011057 A082236 A083003 this_sequence A126951 A076588 A068565
Adjacent sequences: A153185 A153186 A153187 this_sequence A153189 A153190 A153191
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Dec 20 2008
|
|
|
Search completed in 0.002 seconds
|
