login
A077852
Expansion of (1-x)^(-1)/(1-2*x-x^3).
5
1, 3, 7, 16, 36, 80, 177, 391, 863, 1904, 4200, 9264, 20433, 45067, 99399, 219232, 483532, 1066464, 2352161, 5187855, 11442175, 25236512, 55660880, 122763936, 270764385, 597189651, 1317143239, 2905050864, 6407291380, 14131726000, 31168502865, 68744297111
OFFSET
0,2
FORMULA
From R. J. Mathar, May 15 2008: (Start)
a(n) = 3*a(n-1) - 2*a(n-2) + a(n-3) - a(n-4).
a(n+1) - a(n) = A008998(n+1). (End)
a(n) = 2*a(n-1) + a(n-3) + 1. - Greg Dresden, Apr 04 2021
MAPLE
a:= n-> (<<0|1|0|0>, <0|0|1|0>, <0|0|0|1>, <-1|1|-2|3>>^n)[4, 4]:
seq(a(n), n=0..30); # Alois P. Heinz, Nov 12 2017
MATHEMATICA
CoefficientList[Series[(1-x)^(-1)/(1-2x-x^3), {x, 0, 40}], x] (* or *) LinearRecurrence[{3, -2, 1, -1}, {1, 3, 7, 16}, 40] (* Harvey P. Dale, Oct 05 2012 *)
CROSSREFS
Cf. A019489. - R. J. Mathar, Sep 19 2008
Sequence in context: A045891 A081037 A019489 * A218983 A020746 A033303
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Nov 17 2002
STATUS
approved