login
Zero followed by partial sums of A133405.
0

%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