A176640 Partial sums of A005985.
0, 1, 5, 14, 46, 111, 303, 688, 1712, 3761, 8881, 19122, 43698, 92851, 207539, 436916, 961204, 2009781, 4369077, 9087670, 19573430, 40544951, 86682295, 178956984, 380283576, 782936761, 1655351993, 3400182458, 7158278842
Offset: 0
Links
- Index entries for linear recurrences with constant coefficients, signature (3,3,-15,6,12,-8).
Crossrefs
Cf. A005985.
Programs
-
Mathematica
Accumulate[LinearRecurrence[{2,5,-10,-4,8},{0,1,4,9,32},40]] (* or *) LinearRecurrence[{3,3,-15,6,12,-8},{0,1,5,14,46,111},40] (* Harvey P. Dale, Jun 11 2015 *)
Formula
a(n) = Sum_{i=0..n} A005985(i).
G.f.: x*(1+2*x-4*x^2+4*x^3)/((1-x)^2*(1+x)*(1-2*x)^2*(1+2*x)). - Colin Barker, Jan 14 2012
a(n) = 3*a(n-1)+ 3*a(n-2)- 15*a(n-3)+ 6*a(n-4)+12*a(n-5)-8*a(n-6). - Harvey P. Dale, Jun 11 2015