login
Floor-Sqrt transform of derangement numbers (A000166).
0

%I #7 Apr 04 2024 16:41:07

%S 1,0,1,1,3,6,16,43,121,365,1155,3832,13274,47862,179084,693589,

%T 2774358,11438972,48531450,211543687,946052129,4335355493,20334619731,

%U 97521410321,477755388567,2388776942837,12180420245150,63291320166423,334906186618646,1803525009870353

%N Floor-Sqrt transform of derangement numbers (A000166).

%F a(n) = floor(sqrt(derangements(n))).

%t FSFromExpSeries[f_,x_,n_] := Map[Floor[Sqrt[#]]&,CoefficientList[Series[f,{x,0,n}],x]Table[k!,{k,0,n}]]

%t FSFromExpSeries[Exp[-x]/(1-x),x,100]

%Y Cf. A000166.

%K nonn

%O 0,5

%A _Emanuele Munarini_, Jul 07 2011