|
Search: id:A137260
|
|
|
| A137260 |
|
Triangular sequence of limited permutations of the form: t(n,m)=-n!+n*(m-1)!. |
|
+0
1
|
|
| 0, 0, 0, 1, 2, 0, 5, 10, 12, 0, 23, 46, 66, 72, 0, 119, 238, 354, 456, 480, 0, 719, 1438, 2154, 2856, 3480, 3600, 0, 5039, 10078, 15114, 20136, 25080, 29520, 30240, 0, 40319, 80638, 120954, 161256, 201480, 241200, 277200, 282240, 0, 362879, 725758
(list; graph; listen)
|
|
|
OFFSET
|
1,5
|
|
|
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},
{1, 2, 0},
{5, 10, 12, 0},
{23, 46, 66, 72, 0},
{119, 238, 354, 456, 480, 0},
{719, 1438, 2154, 2856, 3480, 3600, 0},
{5039, 10078, 15114, 20136, 25080, 29520, 30240, 0},
{40319, 80638, 120954, 161256, 201480, 241200, 277200, 282240, 0},
{362879, 725758, 1088634, 1451496, 1814280, 2176560, 2535120, 2862720, 2903040, 0}
|
|
MATHEMATICA
|
t[n_, m_] = -n! + n*(m - 1)!; a = Table[Table[t[n, m], {n, 1, m}], {m, 1, 10}]; Flatten[a]
|
|
CROSSREFS
|
Adjacent sequences: A137257 A137258 A137259 this_sequence A137261 A137262 A137263
Sequence in context: A011014 A002976 A080901 this_sequence A047918 A138701 A050821
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 11 2008
|
|
|
Search completed in 0.002 seconds
|
