A192673 Floor-Sqrt transform of large Schroder numbers (A006318).

1, 1, 2, 4, 9, 19, 42, 92, 203, 453, 1018, 2300, 5224, 11919, 27301, 62750, 144662, 334392, 774802, 1799089, 4185524, 9754468, 22769099, 53225213, 124585182, 291975928, 685044632, 1608962053, 3782645385, 8901012965, 20962890607, 49409138924, 116543063346, 275086432485

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])/(2x),x,100]

Formula

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