A192683 Floor-Sqrt transform of numbers of A078679 (Grand Motzkin paths with no zigzags).

1, 1, 1, 2, 4, 6, 10, 17, 27, 45, 74, 122, 201, 332, 548, 907, 1502, 2490, 4131, 6859, 11396, 18944, 31510, 52437, 87305, 145418, 242310, 403909, 673507, 1123409, 1874396, 3128270, 5222267, 8720050, 14563897, 24329283, 40650780, 67934677, 113551476, 189831651, 317406103, 530797959, 887783981

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[Sqrt[(1-x+x^2)/(1-3x+x^3+x^4)],x,100]

Formula

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