|
| |
|
|
A137260
|
|
Triangular sequence of limited permutations of the form: t(n,m)=-n!+n*(m-1)!.
|
|
0
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,5
|
|
|
COMMENTS
| 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
| Sequence in context: A011014 A002976 A080901 * A153059 A151336 A180491
Adjacent sequences: A137257 A137258 A137259 * A137261 A137262 A137263
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 11 2008
|
| |
|
|
