OFFSET
0,4
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..10000
Index entries for linear recurrences with constant coefficients, signature (2,-2,2,-2,2,-1)
FORMULA
MATHEMATICA
LinearRecurrence[{2, -2, 2, -2, 2, -1}, {1, 1, -1, -2, -2, -2}, 81] (* Ray Chandler, Sep 03 2015 *)
CoefficientList[Series[(1-x-x^2)/((1-x)^2(1+x^2+x^4)), {x, 0, 80}], x] (* Harvey P. Dale, Dec 02 2021 *)
PROG
(PARI) x='x+O('x^100); Vec((1-x-x^2)/((1-x)^2*(1+x^2+x^4))) \\ G. C. Greubel, Sep 07 2018
(Magma) m:=100; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!((1-x-x^2)/((1-x)^2*(1+x^2+x^4)))); // G. C. Greubel, Sep 07 2018
CROSSREFS
KEYWORD
easy,sign
AUTHOR
Paul Barry, Dec 11 2004
STATUS
approved