%I #4 Mar 30 2012 18:55:30
%S 1,1,1,2,3,5,8,15,27,51,97,188,374,753,1546,3217,6797,14553,31580,
%T 69352,154138,346341,786692,1804949,4182366,9781638,23086472,54960683,
%U 131951799,319359086,779048952,1914843089,4741419557,11824255970,29693231388,75068841641,191035103175
%N Floor-Sqrt transform of involution numbers (A000085).
%F a(n) = floor(sqrt(A000085(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+x^2/2],x,100]
%K nonn
%O 0,4
%A _Emanuele Munarini_, Jul 07 2011