|
| |
|
|
A155453
|
|
Triangle read by rows: t(n,m)=1 - (k! - n! + (-k + n)! - k!*(n - k)!).
|
|
0
| |
|
|
1, 1, 1, 2, 2, 2, 6, 6, 6, 6, 24, 24, 25, 24, 24, 120, 120, 125, 125, 120, 120, 720, 720, 743, 745, 743, 720, 720, 5040, 5040, 5159, 5155, 5155, 5159, 5040, 5040, 40320, 40320, 41039, 40915, 40849, 40915, 41039, 40320, 40320, 362880, 362880, 367919, 366475
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,4
|
|
|
COMMENTS
| Row sums are:
{1, 2, 6, 24, 121, 730, 5111, 40788, 366037, 3651542, 40095063,...}.
|
|
|
FORMULA
| t(n,m)=t(n,m)=1 - (k! - n! + (-k + n)! - k!*(n - k)!)..
|
|
|
EXAMPLE
| {1},
{1, 1},
{2, 2, 2},
{6, 6, 6, 6},
{24, 24, 25, 24, 24},
{120, 120, 125, 125, 120, 120},
{720, 720, 743, 745, 743, 720, 720},
{5040, 5040, 5159, 5155, 5155, 5159, 5040, 5040},
{40320, 40320, 41039, 40915, 40849, 40915, 41039, 40320, 40320},
{362880, 362880, 367919, 366475, 365617, 365617, 366475, 367919, 362880, 362880},
{3628800, 3628800, 3669119, 3653995, 3645337, 3642961, 3645337, 3653995, 3669119, 3628800, 3628800}
|
|
|
MATHEMATICA
| Table[Table[1 - (k! - n! + (-k + n)! - k!*(n - k)!), {k, 0, n}], {n, 0, 10}];
Flatten[%]
|
|
|
CROSSREFS
| Sequence in context: A078584 A171698 A080969 * A032558 A139552 A064943
Adjacent sequences: A155450 A155451 A155452 * A155454 A155455 A155456
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 22 2009
|
| |
|
|
