OFFSET
0,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
Curtis T. McMullen, Dynamics on K3 surfaces: Salem numbers and Siegel disks, 2005.
Index entries for linear recurrences with constant coefficients, signature (1,1,-1,0,0,0,1,0,-1,0,1).
FORMULA
G.f.: -1/((x^3 + x^2 - 1)*(x^8 - x^7 + x^5 - x^4 + x^3 - x + 1)). - Colin Barker, Sep 18 2013
a(n) = a(n-1) + a(n-2) - a(n-3) + a(n-7) - a(n-9) + a(n-10), n >= 10. - Franck Maminirina Ramaharo, Oct 31 2018
MATHEMATICA
CoefficientList[Series[1/(1 - x - x^2 + x^3 - x^7 + x^9 - x^11), {x, 0, 50}], x] (* Franck Maminirina Ramaharo, Oct 31 2018 *)
LinearRecurrence[{1, 1, -1, 0, 0, 0, 1, 0, -1, 0, 1}, {1, 1, 2, 2, 3, 3, 4, 5, 7, 9, 12}, 50] (* Harvey P. Dale, May 31 2020 *)
PROG
(PARI) Vec(-1/((x^3+x^2-1)*(x^8-x^7+x^5-x^4+x^3-x+1)) + O(x^50)) \\ Colin Barker, Sep 18 2013
(Magma) m:=50; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!(1/(1 -x-x^2+x^3-x^7+x^9-x^11))); // G. C. Greubel, Nov 03 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula, Nov 09 2008
EXTENSIONS
Heavily edited (because the Name, Comments, Formula and Mathematica code did not correspond to the terms of the sequence) by Colin Barker, Sep 18 2013
STATUS
approved