login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A137259 Triangular sequence of limited permutations of the form: t(n,m)=n!-n*(m-1)!. 0
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; refs; listen; history; text; internal format)
OFFSET

1,4

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

LINKS

Table of n, a(n) for n=1..46.

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, n}], {n, 10}]; Flatten[a]

CROSSREFS

Sequence in context: A039928 A247889 A309012 * A166553 A285863 A111843

Adjacent sequences:  A137256 A137257 A137258 * A137260 A137261 A137262

KEYWORD

nonn,uned

AUTHOR

Roger L. Bagula, Mar 11 2008

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 27 03:21 EDT 2020. Contains 337380 sequences. (Running on oeis4.)