%I #18 Jan 11 2024 07:08:53
%S 1,1,5,10,53,126,662,1716,8885,24310,124130,352716,1778966,5200300,
%T 25947612,77558760,383358645,1166803110,5719519850,17672631900,
%U 85990654178,269128937220,1300866635172,4116715363800,19780031677718,63205303218876,302045506654052
%N a(n) = Sum_{k=0..floor(n/2)} binomial(n, k)^2.
%C Interleaves A036910 and A002458.
%F a(n) = (binomial(2*n, n) + (binomial(n, n/2)*cos(Pi*n/2))^2)/2.
%F D-finite with recurrence: 2*(2*n+1)*(4*n^2+15*n+13)*(16*(n+1)^2*a(n) - (n+2)^2*a(n+2)) = (n+2)*(4*n^2+7*n+2)*(16*(n+2)^2*a(n+1) - (n+3)^2*a(n+3)).
%F G.f.: (1/sqrt(1 - 4*x) + 2*K(4*x)/Pi)/2, where K is the complete elliptic integral of the first kind with modulus 4*x. - _Benedict W. J. Irwin_, Oct 19 2016
%F D-finite with recurrence n^2*(n-1)*a(n) -2*(3*n-4)*(n-1)^2*a(n-1) +4*(-19*n^2+64*n-56)*a(n-2) +16*(4*n^3-11*n^2-16*n+49)*a(n-3) -64*(4*n-15)*(n-3)^2*a(n-4) +256*(2*n-9)*(n-4)^2*a(n-5)=0. - _R. J. Mathar_, Jan 11 2024
%p A277247 := proc(n)
%p add(binomial(n,k)^2,k=0..floor(n/2)) ;
%p end proc:
%p seq(A277247(n),n=0..50) ; # _R. J. Mathar_, Jan 11 2024
%t Table[(Binomial[2 n, n] + (Binomial[n, n/2] Cos[Pi n/2])^2)/2, {n, 0, 30}]
%t CoefficientList[Series[(1/Sqrt[1-4x]+(2EllipticK[16 x^2])/Pi)/2, {x, 0, 20}], x] (* _Benedict W. J. Irwin_, Oct 19 2016 *)
%Y Cf. A000984, A002458, A036910, A110145.
%K nonn,easy
%O 0,3
%A _Vladimir Reshetnikov_, Oct 06 2016