A144397 Triangle read by rows: t(n,m)=(1 + n!)*Binomial[n, m]-n!/Binomial[n, m].

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

Offset

1,5

Comments

Row sums are {1, 2, 7, 40, 336, 3560, 44332, 632960, 10226560, 184954112, 3707638144, ...}.

Links

Table of n, a(n) for n=1..47.

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: A178346 A168551 A262307 * A047909 A171243 A111577

Adjacent sequences: A144394 A144395 A144396 * A144398 A144399 A144400

Keyword

nonn,tabl

Author

Roger L. Bagula and Gary W. Adamson, Oct 03 2008

Extensions

Edited by N. J. A. Sloane, Jan 05 2009

Status

approved