%I #11 Mar 10 2023 13:31:39
%S 0,0,0,0,1,4,13,39,117,351,1054,3163,9490,28470,85410,256230,768691,
%T 2306074,6918223,20754669,62264007,186792021,560376064,1681128193,
%U 5043384580,15130153740,45390461220,136171383660
%N Zero followed by partial sums of A133405.
%H <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (4,-3,-1,4,-3).
%F a(n+1)-3*a(n) = A088911(n+3).
%F a(n) = 4*a(n-1)-3*a(n-2)-a(n-3)+4*a(n-4)-3*a(n-5).
%F O.g.f.: x^4/((3*x-1)*(1+x)*(x^2-x+1)*(x-1)). - _R. J. Mathar_, Jul 16 2008
%t Join[{0},Accumulate[LinearRecurrence[{3,0,-1,3},{0,0,0,1},40]]] (* or *) LinearRecurrence[{4,-3,-1,4,-3},{0,0,0,0,1},40] (* _Harvey P. Dale_, Dec 24 2013 *)
%Y Cf. A088911, A133405.
%K nonn
%O 0,6
%A _Paul Curtz_, Nov 25 2007
%E Edited and extended by _R. J. Mathar_, Jul 16 2008