A087098 Partial sums of A087100.
0, 1, 12, 15, 37, 44, 77, 92, 136, 167, 222, 285, 351, 478, 555, 810, 898, 1409, 1508, 2531, 2641, 4688, 4809, 8904, 9036, 17227, 17370, 33753, 33907, 66674, 66839, 132374, 132550, 263621, 263808, 525951, 526149, 1050436, 1050645, 2099220
Offset: 0
Links
- Index entries for linear recurrences with constant coefficients, signature (1,4,-4,-5,5,2,-2).
Programs
-
Mathematica
Accumulate[Rest[With[{nn=30},Riffle[2^Range[0,nn]-1,11Range[0,nn]]]]] (* Harvey P. Dale, Feb 13 2017 *)
Formula
From Chai Wah Wu, Feb 02 2021: (Start)
a(n) = a(n-1) + 4*a(n-2) - 4*a(n-3) - 5*a(n-4) + 5*a(n-5) + 2*a(n-6) - 2*a(n-7) for n > 6.
G.f.: x*(-22*x^3 - x^2 + 11*x + 1)/((x - 1)^3*(x + 1)^2*(2*x^2 - 1)). (End)