OFFSET
0,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (2,0,0,0,-1).
FORMULA
From N. J. A. Sloane, Dec 05, 2003: (Start)
G.f.: x*(1+x+x^2)/(1-2*x+x^5).
a(n) = 2*a(n-1) - a(n-5) for n >= 6. (End)
a(n) = A000078(n+4) - 1. - G. C. Greubel, Feb 19 2021
MATHEMATICA
CoefficientList[Series[x*(1+x+x^2)/(1-2*x+x^5), {x, 0, 50}], x] (* G. C. Greubel, Feb 19 2021 *)
PROG
(Sage)
def A089074_list(prec):
P.<x> = PowerSeriesRing(ZZ, prec)
return P( x*(1+x+x^2)/(1-2*x+x^5) ).list()
a=A089074_list(51); a[1:] # G. C. Greubel, Feb 19 2021
(Magma)
R<x>:=PowerSeriesRing(Integers(), 50);
Coefficients(R!( x*(1+x+x^2)/(1-2*x+x^5) )); // G. C. Greubel, Feb 19 2021
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula, Dec 04 2003
EXTENSIONS
Title and offset changed by G. C. Greubel, Feb 19 2021
STATUS
approved