%I #42 Feb 22 2018 22:24:03
%S 1,2,5,12,30,76,197,522,1418,3956,11354,33554,102104,319608,1027237,
%T 3381714,11371366,38946892,135505958,477781296,1703671604,6132978608,
%U 22256615602,81327116484,298938112816,1104473254912,4098996843500,15272792557230,57106723430892,214202598271360,805743355591301
%N Number of 2-Motzkin paths with no level steps at height 1.
%C For n=3 we have 12 paths: H(1)H(1)H(1), H(1)H(1)H(2), H(1)H(2)H(1), H(1)H(2)H(2), H(2)H(1)H(1), H(2)H(1)H(2), H(2)H(2)H(1), H(2)H(2)H(2), UDH(1), UDH(2), H(1)UD, H(2)UD.
%H Robert Israel, <a href="/A253831/b253831.txt">Table of n, a(n) for n = 0..1000</a>
%F G.f.: 1/(1-2*x-x*F(x)), where F(x) is the g.f. of Fine numbers A000957.
%F G.f.: 2*(2+x)/(4-7*x-6*x^2+x*sqrt(1-4*x)).
%F a(n) ~ 4^(n+1) / (25*sqrt(Pi)*n^(3/2)). - _Vaclav Kotesovec_, Apr 21 2015
%F (54+36*n)*a(n)+(-3+7*n)*a(n+1)+(-60-36*n)*a(n+2)+(36+16*n)*a(n+3)+(-6-2*n)*a(n+4) = 0. - _Robert Israel_, Apr 29 2015
%F a(n) = Sum_{m=1..n/2}(Sum_{j=0..n-2*m}(((Sum_{k=0..j}((k+1)*binomial(k+m,k+1)*binomial(2*j-k+m-1,j-k)*(-1)^(k)))*2^(n-j-2*m)*binomial(n-m-j,m))/(j+m)))+2^n. - _Vladimir Kruchinin_, Mar 11 2016
%p rec:= (54+36*n)*a(n)+(-3+7*n)*a(n+1)+(-60-36*n)*a(n+2)+(36+16*n)*a(n+3)+(-6-2*n)*a(n+4) = 0:
%p f:= gfun:-rectoproc({rec,seq(a(i)=[1,2,5,12][i+1],i=0..3)},a(n),remember):
%p seq(f(n),n=0..100); # _Robert Israel_, Apr 29 2015
%t CoefficientList[Series[1/(1-2*x-x*((1-Sqrt[1-4*x])/(3-Sqrt[1-4*x]))), {x, 0, 20}], x] (* _Vaclav Kotesovec_, Apr 21 2015 *)
%o (Maxima)
%o a(n):=sum(sum(((sum((k+1)*binomial(k+m,k+1)*binomial(2*j-k+m-1,j-k)*(-1)^(k),k,0,j))*2^(n-j-2*m)*binomial(n-m-j,m))/(j+m),j,0,n-2*m),m,1,n/2)+2^n; /* _Vladimir Kruchinin_, Mar 11 2016 */
%Y Cf. A000957, A217312, A257363.
%K nonn
%O 0,2
%A _José Luis Ramírez Ramírez_, Apr 20 2015