|
Search: id:A141906
|
|
|
| A141906 |
|
A degenerate multinomial triangular sequence of coefficients: t(n,m)=(n*m)!/m!^n. |
|
+0
1
|
|
| 1, 1, 1, 1, 2, 6, 1, 6, 90, 1680, 1, 24, 2520, 369600, 63063000, 1, 120, 113400, 168168000, 305540235000, 623360743125120, 1, 720, 7484400, 137225088000, 3246670537110000, 88832646059788350720, 2670177736637149247308800, 1, 5040
(list; graph; listen)
|
|
|
OFFSET
|
1,5
|
|
|
COMMENT
|
Row sums are:
{1, 2, 9, 1777, 63435145, 623666451641641, 2670266572530016805342641,
7363629673367015952858629874317363281,
18165725639381578540715992641519758891553446152650241,
53130688923813417393347555772148839841537612656804852891837024804533761,
235707458976828072893974212923024464737832344266111429437153495622951010222866239121821017601}.
|
|
FORMULA
|
t(n,m)=(n*m)!/m!^n.
|
|
EXAMPLE
|
{1},
{1, 1},
{1, 2, 6},
{1, 6, 90, 1680},
{1, 24, 2520, 369600, 63063000},
{1, 120, 113400, 168168000, 305540235000, 623360743125120},
{1, 720, 7484400, 137225088000, 3246670537110000, 88832646059788350720, 2670177736637149247308800}
|
|
MATHEMATICA
|
Clear[t, n, m]; t[n_, m_] = (n*m)!/m!^n; Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}]; Flatten[%]
|
|
CROSSREFS
|
Sequence in context: A077761 A076039 A019576 this_sequence A136766 A021386 A019679
Adjacent sequences: A141903 A141904 A141905 this_sequence A141907 A141908 A141909
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Sep 14 2008
|
|
|
Search completed in 0.002 seconds
|
