%I #4 Mar 30 2012 18:55:30
%S 1,1,1,2,4,6,10,17,27,45,74,122,201,332,548,907,1502,2490,4131,6859,
%T 11396,18944,31510,52437,87305,145418,242310,403909,673507,1123409,
%U 1874396,3128270,5222267,8720050,14563897,24329283,40650780,67934677,113551476,189831651,317406103,530797959,887783981
%N Floor-Sqrt transform of numbers of A078679 (Grand Motzkin paths with no zigzags).
%F a(n) = floor(sqrt(A078679(n))).
%t FSFromSeries[f_,x_,n_] := Map[Floor[Sqrt[#]]&,CoefficientList[Series[f,{x,0,n}],x]]
%t FSFromSeries[Sqrt[(1-x+x^2)/(1-3x+x^3+x^4)],x,100]
%K nonn
%O 0,4
%A _Emanuele Munarini_, Jul 07 2011