|
%I #17 Aug 27 2016 20:37:44
%S 0,0,0,0,0,0,0,0,0,0,3628800,43545600,283046400,1320883200,4953312000,
%T 15850598400,44910028800,115482931200,274271961600,609493248000,
%U 1279935820800,4644633666390681600,106826520356358566400,1281918194457262387200,10682651561168805120000
%N Number of degree-n permutations of order exactly 11.
%H Alois P. Heinz, <a href="/A153761/b153761.txt">Table of n, a(n) for n = 1..200</a>
%F E.g.f.: -exp(x)+exp(x+1/11*x^11). - _Alois P. Heinz_, Feb 16 2013
%p a:= proc(n) option remember;
%p `if`(n<11, 0, a(n-1)+(1+a(n-11))*(n-1)!/(n-11)!)
%p end:
%p seq(a(n), n=1..30); # _Alois P. Heinz_, Feb 16 2013
%t Rest[CoefficientList[Series[-Exp[x] + Exp[x + 1/11*x^11], {x, 0, 25}], x]*Range[0, 25]!] (* _G. C. Greubel_, Aug 27 2016 *)
%Y Column k=11 of A057731. - _Alois P. Heinz_, Feb 16 2013
%K nonn
%O 1,11
%A _Franz Vrabec_, Jan 01 2009
%E More terms from _Alois P. Heinz_, Feb 16 2013
|
