OFFSET
0,4
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (-1,0,1,1,1,1,1,0,-1,-1).
FORMULA
a(n) = -a(n-1) + a(n-3) + a(n-4) + a(n-5) + a(n-6) + a(n-7) - a(n-9) - a(n-10). - Franck Maminirina Ramaharo, Nov 02 2018
MAPLE
seq(coeff(series((1-2*x^3-x^4 -2*x^5-x^6-x^7-x^8+2*x^9)/(1+x-x^3-x^4-x^5-x^6-x^7 +x^9+x^10), x, n+1), x, n), n = 0..65); # G. C. Greubel, Mar 13 2020
MATHEMATICA
LinearRecurrence[{-1, 0, 1, 1, 1, 1, 1, 0, -1, -1}, {1, -1, 1, -2, 1, -2, 0, -1, -3, 2}, 65] (* Franck Maminirina Ramaharo, Nov 02 2018 *)
PROG
(PARI) my(x='x+O('x^65)); Vec((1-2*x^3-x^4-2*x^5-x^6-x^7-x^8+2*x^9)/(1+x-x^3-x^4-x^5-x^6-x^7+x^9+x^10)) \\ G. C. Greubel, Nov 03 2018
(Magma) R<x>:=PowerSeriesRing(Integers(), 65); Coefficients(R!( (1-2*x^3-x^4 -2*x^5-x^6-x^7-x^8+2*x^9)/(1+x-x^3-x^4-x^5-x^6-x^7+x^9 +x^10) )); // G. C. Greubel, Nov 03 2018
CROSSREFS
KEYWORD
sign,easy
AUTHOR
Roger L. Bagula and Gary W. Adamson, Oct 22 2008
EXTENSIONS
Edited by Assoc. Eds. of the OEIS - Jun 30 2010
STATUS
approved