# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/
Search: id:a114495
Showing 1-1 of 1
%I A114495 #29 Jul 26 2022 15:57:32
%S A114495 0,1,2,7,22,73,246,844,2936,10334,36736,131709,475714,1729345,6322534,
%T A114495 23232616,85757008,317839438,1182341740,4412949358,16521076012,
%U A114495 62024023306,233451103612,880764587512,3330234867792,12617475113968
%N A114495 Number of returns to the x-axis in all hill-free Dyck paths of semilength n (a Dyck path is said to be hill-free if it has no peaks at level 1).
%C A114495 Row sums of A114494.
%C A114495 Self-convolution of A000958. - _Sergio Falcon_, Oct 28 2008
%C A114495 Removing the initial zeros and setting both offsets to zero, this here is the Catalan transform of A006918. - _R. J. Mathar_, Jun 29 2009
%H A114495 G. C. Greubel, Table of n, a(n) for n = 1..1000
%H A114495 Sergio Falcon, Catalan transform of the K-Fibonacci sequence, Commun. Korean Math. Soc. 28 (2013), No. 4, pp. 827-832; see also.
%F A114495 a(n) = Sum_{k=1..floor(n/2)} k^2*binomial(2*n-2*k, n-2*k)/(n-k).
%F A114495 G.f.: (1 - sqrt(1-4*x))^2/(1 + sqrt(1-4*x) + 2*x)^2.
%F A114495 a(n) ~ 5*4^(n+1)/(27*sqrt(Pi)*n^(3/2)). - _Vaclav Kotesovec_, Mar 20 2014
%F A114495 D-finite with recurrence 2*(n+2)*a(n) +(-7*n-1)*a(n-1) +2*(-3*n-1)*a(n-2) +(7*n-27)*a(n-3) +2*(2*n-5)*a(n-4)=0. - _R. J. Mathar_, Jul 26 2022
%e A114495 a(4) = 7 because in the six hill-free Dyck paths of semilength 4, namely
%e A114495 UUD(D)UUD(D), UUDUDUD(D), UUDUUDD(D), UUUDDUD(D), UUUDUDD(D) and UUUUDDD(D), we have altogether 7 returns to the x-axis (shown between parentheses).
%p A114495 a:=n->sum(k^2*binomial(2*n-2*k,n-2*k)/(n-k),k=1..floor(n/2)): seq(a(n),n=1..30);
%p A114495 # second Maple program:
%p A114495 a:= proc(n) option remember; `if`(n<3, n*(n-1)/2,
%p A114495 ((105*n^3-286*n^2+123*n+10)*a(n-1)
%p A114495 +2*(n-1)*(2*n-1)*(15*n+2)*a(n-2))/
%p A114495 (2*(n-2)*(n+2)*(15*n-13)))
%p A114495 end:
%p A114495 seq(a(n), n=1..30); # _Alois P. Heinz_, Feb 08 2014
%t A114495 Rest[CoefficientList[Series[(1-Sqrt[1-4*x])^2/(1+Sqrt[1-4*x]+2*x)^2, {x, 0, 20}], x]] (* _Vaclav Kotesovec_, Mar 20 2014 *)
%o A114495 (PARI) for(n=1,25, print1(sum(k=1,floor(n/2), k^2*binomial(2*n-2*k, n-2*k)/(n-k)), ", ")) \\ _G. C. Greubel_, Jan 31 2017
%Y A114495 Cf. A114494.
%K A114495 nonn
%O A114495 1,3
%A A114495 _Emeric Deutsch_, Dec 01 2005
# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE