|
%I #10 May 10 2013 12:44:45
%S 0,0,0,0,0,0,420,3360,30240,403200,4019400,80166240,965284320,
%T 12173441280,162850287600,2428557331200,32123543612160,
%U 534678700308480,8126981741380320,128338880777251200,2080312367956502400,36351373041072122880,606331931399062693440
%N Number of degree-n permutations of order exactly 12.
%F E.g.f.: exp(x + 1/2*x^2) - exp(x + 1/2*x^2 + 1/4*x^4) - exp(x + 1/2*x^2 + 1/3*x^3 + 1/6*x^6) + exp(x + 1/2*x^2 + 1/3*x^3 + 1/4*x^4 + 1/6*x^6 + 1/12*x^12).
%t nn=21;Range[0,nn]!CoefficientList[Series[(Exp[x^12/12]-1)Exp[x+x^2/2+x^3/3+x^4/4+x^6/6]+(Exp[x^6/6]-1)(Exp[x^4/4]-1)Exp[x+x^2/2+x^3/3]+(Exp[x^4/4]-1)(Exp[x^3/3]-1)Exp[x^2/2+x],{x,0,nn}],x]//Rest (* _Geoffrey Critzer_, Feb 04 2013 *)
%Y Cf. A000085, A001470, A001472, A052501, A053496 - A053505, A001189, A001471, A001473, A061121 - A061128.
%K easy,nonn
%O 1,7
%A _Vladeta Jovovic_, Apr 14 2001
|
