This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A182661 #15 Mar 30 2012 17:23:10
%S A182661 2,0,20,80,630,4928,44520,444960,4894890,58738240,763597692,
%T A182661 10690366960,160355505310,2565688083840,43616697426640,
%U A182661 785100553677888,14916910519881810,298338210397633920,6265102418350314980,137832253203706926480
%N A182661 Expansion of x^3*exp(-x)/(3*(1-x)).
%C A182661 a(n) is the number of 3-cycles in all derangements of {1,2,...n}.
%F A182661 E.g.f.: x^3 * exp(-x)/(3*(1-x)).
%F A182661 In general, E.g.f. for the number of k cycles in the derangements of [n] is: x^k * exp(-x)/(k*(1-x)).
%p A182661 egf:= x^3 * exp(-x)/(3*(1-x)):
%p A182661 a:= n-> n! * coeff (series (egf, x, n+1), x, n):
%p A182661 seq (a(n), n=3..25);
%t A182661 Table[Count[Flatten[Map[Length,Map[ToCycles,Derangements[n]],{2}]],3],{n,0,8}]
%t A182661 Range[0,20]! CoefficientList[Series[x^3/3 Exp[-x]/(1-x),{x,0,20}],x]
%Y A182661 Cf. A000387.
%K A182661 nonn
%O A182661 3,1
%A A182661 _Geoffrey Critzer_, Feb 01 2011