|
| |
|
|
A156047
|
|
Triangle read by rows: t(n,m)=n!*(1/m+1/(n-m)), 1<=m<n.
|
|
0
| |
|
|
4, 9, 9, 32, 24, 32, 150, 100, 100, 150, 864, 540, 480, 540, 864, 5880, 3528, 2940, 2940, 3528, 5880, 46080, 26880, 21504, 20160, 21504, 26880, 46080, 408240, 233280, 181440, 163296, 163296, 181440, 233280, 408240, 4032000, 2268000, 1728000
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 2,1
|
|
|
COMMENTS
| Row sums are 4, 18, 88, 500, 3288, 24696, 209088, 1972512, 20531520,..., apparently n*A052517(n).
|
|
|
FORMULA
| t(n,m)= n*n!/(m*(n-m)).
|
|
|
EXAMPLE
| 4;
9, 9;
32, 24, 32;
150, 100, 100, 150;
864, 540, 480, 540, 864;
5880, 3528, 2940, 2940, 3528, 5880;
46080, 26880, 21504, 20160, 21504, 26880, 46080;
408240, 233280, 181440, 163296, 163296, 181440, 233280, 408240;
4032000, 2268000, 1728000, 1512000, 1451520, 1512000, 1728000, 2268000, 4032000;
|
|
|
MATHEMATICA
| Clear[f];
f[n_, m_] = n!*(1/m + 1/(n - m));
Table[Table[f[n, m], {m, 1, n - 1}], {n, 2, 10}];
Flatten[%]
|
|
|
CROSSREFS
| Cf. A058298.
Sequence in context: A177083 A081949 A091657 * A171001 A088037 A071768
Adjacent sequences: A156044 A156045 A156046 * A156048 A156049 A156050
|
|
|
KEYWORD
| nonn,tabl,easy
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Feb 02 2009
|
| |
|
|
