login
a(n) = Sum_{k=0..floor(n/3)} (n-2*k+1) * binomial(n-2*k,k)^2.
2

%I #14 Oct 17 2024 09:57:52

%S 1,2,3,6,17,42,90,194,441,1006,2242,4950,10974,24376,53961,119048,

%T 262337,577782,1271117,2792718,6129342,13441616,29454517,64492800,

%U 141108878,308542280,674238780,1472532300,3214268735,7012637490,15292425923,33333338466,72627184389

%N a(n) = Sum_{k=0..floor(n/3)} (n-2*k+1) * binomial(n-2*k,k)^2.

%F G.f.: (1-x-x^3)/((1-x-x^3)^2 - 4*x^4)^(3/2).

%F D-finite with recurrence 3*n*(n-1)*a(n) -(8*n-3)*(n-1)*a(n-1) +(7*n^2-14*n+8)*a(n-2) +(-8*n^2+3*n+23)*a(n-3) -2*n*(n+8)*a(n-4) +4*((n-1)^2)*a(n-5) +3*n*(n+2)*a(n-6) -2*n*(n-1)*a(n-7)=0. - _R. J. Mathar_, Oct 17 2024

%p A375565 := proc(n)

%p add((n-2*k+1)*binomial(n-2*k,k)^2,k=0..floor(n/3)) ;

%p end proc:

%p seq(A375565(n),n=0..80) ; # _R. J. Mathar_, Oct 17 2024

%o (PARI) a(n) = sum(k=0, n\3, (n-2*k+1)*binomial(n-2*k, k)^2);

%Y Cf. A182884, A376735.

%Y Cf. A246840.

%K nonn

%O 0,2

%A _Seiichi Manyama_, Oct 17 2024