|
Search: id:A144397
|
|
|
| A144397 |
|
Triangle read by rows: t(n,m)=(1 + n!)*Binomial[n, m]-n!/Binomial[n, m]. |
|
+0
1
|
|
| 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; listen)
|
|
|
OFFSET
|
1,5
|
|
|
COMMENT
|
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: A157181 A029847 A154334 this_sequence A047909 A111577 A036969
Adjacent sequences: A144394 A144395 A144396 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
