login
This site is supported by donations to The OEIS Foundation.

 

Logo

Annual appeal: Please make a donation to keep the OEIS running! Over 6000 articles have referenced us, often saying "we discovered this result with the help of the OEIS".
Other ways to donate

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A047865 Number of derangements of n where minimal cycle size is 4. 5
1, 0, 0, 0, 6, 24, 120, 720, 6300, 58464, 586656, 6384960, 76471560, 994831200, 13939507296, 209097854784, 3345235180560, 56866395720960, 1023601917024000, 19448577603454464, 388972171805410656, 8168409582839579520, 179704944537482689920 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,5

REFERENCES

H. S. Wilf, Generatingfunctionology, Academic Press, NY, 1990, p. 147, Eq. 5.2.9 (q=3).

LINKS

Alois P. Heinz, Table of n, a(n) for n = 0..200

H. S. Wilf, Generatingfunctionology, 2nd edn., Academic Press, NY, 1994, p. 176, Eq. 5.2.9 (q=3).

FORMULA

a(n) = (n-1)*a(n-1) + (n-1)*(n-2)*(n-3)*a(n-4).

E.g.f.: A(x) = 1/(1-x)*exp(-x-x^2/2-x^3/3) = 1 + 6*x^4/4! + 24*x^5/5! + ... satisfies the differential equation A'(x) = x^3/(1-x)*A(x). - Peter Bala, Apr 18 2012

a(n) ~ n! * exp(-11/6). - Vaclav Kotesovec, Aug 13 2013

MAPLE

with(combstruct): ZL3:=[S, {S=Set(Cycle(Z, card>3))}, labeled] :seq (count (ZL3, size=n), n=0..21); # Zerinvary Lajos, Sep 26 2007

MATHEMATICA

nn=20; Range[0, nn]!CoefficientList[Series[Exp[-x-x^2/2-x^3/3]/(1-x), {x, 0, nn}], x]  (* Geoffrey Critzer, Nov 11 2012 *)

CROSSREFS

Cf. A038205, A000166.

Sequence in context: A050212 A293300 A293487 * A182083 A293049 A293123

Adjacent sequences:  A047862 A047863 A047864 * A047866 A047867 A047868

KEYWORD

nonn

AUTHOR

N. J. A. Sloane.

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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified November 22 08:57 EST 2017. Contains 295076 sequences.