A192678 Floor-Sqrt transform of idempotent endomap numbers (A000248).

1, 1, 1, 3, 6, 14, 32, 79, 203, 541, 1495, 4267, 12543, 37902, 117519, 373236, 1212418, 4023007, 13619993, 46998318, 165144243, 590411905, 2145978422, 7924484313, 29710783080, 113031311232, 436102652463, 1705552475812, 6758097531570, 27119230158894

Offset: 0

Author

Emanuele Munarini, Jul 07 2011

Keywords

• nonn

Programs

Mathematica

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

Formula

a(n) = floor(sqrt(A000248(n))).