%I #20 Feb 18 2024 05:18:19
%S 0,1,2,3,4,6,9,13,18,25,35,49,68,94,130,180,249,344,475,656,906,1251,
%T 1727,2384,3291,4543,6271,8656,11948,16492,22764,31421,43370,59863,
%U 82628,114050,157421,217285,299914,413965,571387,788673,1088588,1502554
%N a(n) = Sum_{k=0..floor(n/4)} C(n-3*k,k+1).
%C Partial sums of A003269 (with leading zero).
%H G. C. Greubel, <a href="/A098578/b098578.txt">Table of n, a(n) for n = 0..1000</a>
%H <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (2,-1,0,1,-1)
%F G.f.: x/((1-x)^2-x^4(1-x)) = x / ((x-1)*(x^4+x-1)).
%F a(n) = 2*a(n-1) - a(n-2) + a(n-4) - a(n-5).
%F a(n) = a(n-1) + a(n-4) + 1.
%t CoefficientList[Series[x/((1-x)^2-x^4*(1-x)), {x,0,50}], x] (* or *) LinearRecurrence[{2,-1,0,1,-1}, {0,1,2,3,4}, 50] (* _G. C. Greubel_, Feb 03 2018 *)
%o (PARI) x='x+O('x^30); concat([0], Vec(x/((1-x)^2-x^4*(1-x)))) \\ _G. C. Greubel_, Feb 03 2018
%o (Magma) I:=[0,1,2,3,4]; [n le 5 select I[n] else 2*Self(n-1) - Self(n-2) + Self(n-4) - Self(n-5): n in [1..30]]; // _G. C. Greubel_, Feb 03 2018
%Y Cf. A077868.
%K easy,nonn
%O 0,3
%A _Paul Barry_, Sep 16 2004
|