A192669 Floor-Sqrt transform of Motzkin numbers (A001006).

1, 1, 1, 2, 3, 4, 7, 11, 17, 28, 46, 76, 124, 204, 337, 557, 923, 1535, 2556, 4266, 7131, 11939, 20019, 33611, 56504, 95096, 160218, 270199, 456095, 770547, 1302837, 2204486, 3732769, 6324750, 10723278, 18191510, 30878276, 52440601, 89104745, 151475242, 257620263, 438335394, 746126537

Offset: 0

Author

Emanuele Munarini, Jul 07 2011

Keywords

• nonn

Crossrefs

Cf. A001006.

Programs

Mathematica

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

Formula

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