%I #12 Jul 02 2024 02:24:20
%S 1,1,2,3,6,10,17,27,45,73,119,192,312,505,818,1323,2142,3466,5609,
%T 9075,14685,23761,38447,62208,100656,162865,263522,426387,689910,
%U 1116298,1806209,2922507,4728717,7651225,12379943,20031168
%N a(n) = Sum_{k=0..floor(n/2)} A026637(n-k, k).
%H G. C. Greubel, <a href="/A026647/b026647.txt">Table of n, a(n) for n = 0..1000</a>
%F G.f.: (1 + x^5 + x^6)/((1-x^4)*(1-x-x^2)).
%F From _G. C. Greubel_, Jul 01 2024: (Start)
%F a(n) = [n=0] - (3/4) + (1/4)*(-1)^n - (1/10)*2^((1-(-1)^n)/2)*(-1)^floor((n+1)/2) + (3/5)*LucasL(n+1).
%F a(n) = (1/20)*( 12*LucasL(n+1) + 5*(-1)^n - 15 - 2*cos(n*Pi/2) + 4*sin(n*Pi/2) ) + [n=0].
%F a(n) = a(n-2) + a(n-3) + 2*a(n-4) + a(n-5) + 3, with a(0) = a(1) = 1, a(2) = 2, a(3) = 3, a(4) = 6, a(5) = 10. (End)
%t a[n_]:= a[n]= If[n<6, Binomial[n, Floor[n/2]], a[n-2] +a[n-3] +2*a[n- 4] +a[n-5] +3]; (* a = A026647 *)
%t Table[a[n], {n,0,40}] (* _G. C. Greubel_, Jul 01 2024 *)
%o (Magma) [1] cat [n le 5 select Binomial(n, Floor(n/2)) else Self(n-2) +Self(n-3) +2*Self(n-4) +Self(n-5) +3: n in [1..40]]; // _G. C. Greubel_, Jul 01 2024
%o (SageMath)
%o @CachedFunction
%o def a(n): # a = A026647
%o if n<6: return binomial(n, n//2)
%o else: return a(n-2) + a(n-3) + 2*a(n-4) + a(n-5) + 3
%o [a(n) for n in range(41)] # _G. C. Greubel_, Jul 01 2024
%Y Cf. A026637, A026638, A026639, A026640, A026641, A026642, A026643.
%Y Cf. A026644, A026645, A026646, A026966, A026967, A026968, A026969.
%Y Cf. A026970.
%K nonn
%O 0,3
%A _Clark Kimberling_