login
Floor-Sqrt transform of involution numbers (A000085).
0

%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