A155794 Triangle read by rows: t(n,m)=(m*(m-n))!

1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 6, 24, 6, 1, 1, 24, 720, 720, 24, 1, 1, 120, 40320, 362880, 40320, 120, 1, 1, 720, 3628800, 479001600, 479001600, 3628800, 720, 1, 1, 5040, 479001600, 1307674368000, 20922789888000, 1307674368000, 479001600, 5040, 1

Offset

0,8

Comments

Row sums are: {1, 2, 3, 6, 38, 1490, 443762, 965262242, 23539096637282, 4878608938121399042, 16752209028723653862101762,...}.

Second column is n!.

Links

Table of n, a(n) for n=0..44.

Example

{1},
{1, 1},
{1, 1, 1},
{1, 2, 2, 1},
{1, 6, 24, 6, 1},
{1, 24, 720, 720, 24, 1},
{1, 120, 40320, 362880, 40320, 120, 1},
{1, 720, 3628800, 479001600, 479001600, 3628800, 720, 1},
{1, 5040, 479001600, 1307674368000, 20922789888000, 1307674368000, 479001600, 5040, 1},
{1, 40320, 87178291200, 6402373705728000, 2432902008176640000, 2432902008176640000, 6402373705728000, 87178291200, 40320, 1},
{1, 362880, 20922789888000, 51090942171709440000, 620448401733239439360000, 15511210043330985984000000, 620448401733239439360000, 51090942171709440000, 20922789888000, 362880, 1}

Mathematica

Table[Table[(k*(n - k))!, {k, 0, n}], {n, 0, 10}];
Flatten[%]

Crossrefs

Sequence in context: A173886 A090441 A340591 * A107876 A121554 A365077

Adjacent sequences: A155791 A155792 A155793 * A155795 A155796 A155797

Keyword

nonn,tabl

Author

Roger L. Bagula, Jan 27 2009

Extensions

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

Status

approved