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,3

Links

Table of n, a(n) for n=0..39.

Index entries for linear recurrences with constant coefficients, signature (1,4,-4,-5,5,2,-2).

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)

Mathematica

Accumulate[Rest[With[{nn=30}, Riffle[2^Range[0, nn]-1, 11Range[0, nn]]]]] (* Harvey P. Dale, Feb 13 2017 *)

Crossrefs

Cf. A086848, A087099, A001068.

Sequence in context: A065150 A365850 A277082 * A109315 A024875 A152190

Adjacent sequences: A087095 A087096 A087097 * A087099 A087100 A087101

Keyword

easy,nonn

Author

Jeremy Gardiner, Aug 10 2003

Status

approved