A192672 Floor-Sqrt transform of little Schroeder numbers (A001003).

1, 1, 1, 3, 6, 14, 30, 65, 144, 321, 720, 1626, 3694, 8428, 19305, 44371, 102291, 236450, 547868, 1272148, 2959613, 6897450, 16100184, 37635909, 88095027, 206458158, 484399704, 1137707979, 2674734202, 6293966627, 14823002101, 34937537185, 82408390392, 194515481823

Offset: 0

Author

Emanuele Munarini, Jul 07 2011

Keywords

• nonn

Programs

Mathematica

FSFromSeries[f_,x_,n_] := Map[Floor[Sqrt[#]]&,CoefficientList[Series[f,{x,0,n}],x]]
FSFromSeries[(1+x-Sqrt[1-6x+x^2])/(4x),x,100]

Formula

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