|
| |
|
|
A144397
|
|
Triangle read by rows: t(n,m)=(1 + n!)*Binomial[n, m]-n!/Binomial[n, m].
|
|
0
| |
|
|
1, 1, 1, 1, 5, 1, 1, 19, 19, 1, 1, 94, 146, 94, 1, 1, 581, 1198, 1198, 581, 1, 1, 4206, 10767, 14384, 10767, 4206, 1, 1, 34567, 105621, 176291, 176291, 105621, 34567, 1, 1, 317528, 1127548, 2257256, 2821894, 2257256, 1127548, 317528, 1, 1, 3225609
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,5
|
|
|
COMMENTS
| Row sums are {1, 2, 7, 40, 336, 3560, 44332, 632960, 10226560, 184954112, 3707638144, ...}.
|
|
|
EXAMPLE
| {1},
{1, 1},
{1, 5, 1},
{1, 19, 19, 1},
{1, 94, 146, 94, 1},
{1, 581, 1198, 1198, 581, 1},
{1, 4206, 10767, 14384, 10767, 4206, 1},
{1, 34567, 105621, 176291, 176291, 105621, 34567, 1},
{1, 317528, 1127548, 2257256, 2821894, 2257256, 1127548, 317528, 1},
{1, 3225609, 13053636, 30477684, 45720126, 45720126, 30477684, 13053636, 3225609, 1},
{1, 35925130, 163215405, 435425880, 762030930, 914443452, 762030930, 435425880, 163215405, 35925130, 1}
|
|
|
MATHEMATICA
| Table[Table[ -n!/Binomial[n, m] + (1 + n!)*Binomial[n, m], {m, 0, n}], {n, 0, 10}]; Flatten[%]
|
|
|
CROSSREFS
| Sequence in context: A154334 A178346 A168551 * A047909 A171243 A111577
Adjacent sequences: A144394 A144395 A144396 * A144398 A144399 A144400
|
|
|
KEYWORD
| nonn,tabl
|
|
|
AUTHOR
| Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Oct 03 2008
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane (njas(AT)research.att.com), Jan 05 2009
|
| |
|
|
