|
Search: id:A137259
|
|
|
| A137259 |
|
Triangular sequence of limited permutations of the form: t(n,m)=n!-n*(m-1)!. |
|
+0
1
|
|
| 0, 0, 0, 3, 3, 0, 20, 20, 16, 0, 115, 115, 110, 90, 0, 714, 714, 708, 684, 576, 0, 5033, 5033, 5026, 4998, 4872, 4200, 0, 40312, 40312, 40304, 40272, 40128, 39360, 34560, 0, 362871, 362871, 362862, 362826, 362664, 361800, 356400, 317520, 0, 3628790
(list; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
COMMENT
|
Inspired by the formula: Sum[k*p[n,k],{k,0,n}]=n!
|
|
REFERENCES
|
http://www.maa.org/pubs/monthly_mar08_toc.html The Fubini Principle By: Krassimir Penev krassi(AT)att.net
|
|
FORMULA
|
t(n,m)=n!-n*(m-1)!
|
|
EXAMPLE
|
{0},
{0, 0},
{3, 3, 0},
{20, 20, 16, 0},
{115, 115, 110, 90, 0},
{714, 714, 708, 684, 576, 0},
{5033, 5033, 5026, 4998, 4872, 4200, 0},
{40312, 40312, 40304, 40272, 40128, 39360, 34560, 0},
{362871, 362871, 362862, 362826, 362664, 361800, 356400, 317520, 0},
{3628790, 3628790, 3628780, 3628740, 3628560, 3627600, 3621600, 3578400, 3225600, 0}
|
|
MATHEMATICA
|
t[n_, m_] = n! - n*(m - 1)! a = Table[Table[t[n, m], {m, 1, n}], {n, 1, 10}] Flatten[a]
|
|
CROSSREFS
|
Sequence in context: A120981 A100543 A039928 this_sequence A111843 A119537 A031438
Adjacent sequences: A137256 A137257 A137258 this_sequence A137260 A137261 A137262
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 11 2008
|
|
|
Search completed in 0.002 seconds
|
