OFFSET
0,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (2,-2,2,-1,1,-1,1,-1).
FORMULA
G.f.: 1 / ((1 - x) * (1 - x + x^2) * (1 + x^2) * (1 - x^2 - x^3)).
a(n) = -A247918(-8-n) for all n in Z.
0 = a(n) + a(n+4) - a(n+5) + mod(floor((n-1) / 2), 2) for all n in Z.
0 = a(n) - a(n+1) + a(n+2) - a(n+3) + a(n+4) - 2*a(n+5) + 2*a(n+6) - 2*a(n+7) + a(n+8) for all n in Z.
EXAMPLE
G.f. = 1 + 2*x + 2*x^2 + 2*x^3 + 3*x^4 + 5*x^5 + 7*x^6 + 9*x^7 + 12*x^8 + ...
MATHEMATICA
CoefficientList[Series[(1 + x)/((1 - x^4) (1 - x - x^5)), {x, 0, 100}], x] (* Vincenzo Librandi, Sep 27 2014 *)
PROG
(PARI) {a(n) = if( n<0, n=-8-n; polcoeff( -1 / ((1 - x) * (1 - x + x^2) * (1 + x^2) * (1 + x - x^3)) + x * O(x^n), n), polcoeff( 1 / ((1 - x) * (1 - x + x^2) * (1 + x^2) * (1 - x^2 - x^3)) + x * O(x^n), n))};
(Magma) m:=60; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!((1 +x)/((1-x^4)*(1-x-x^5)))); // G. C. Greubel, Aug 04 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Michael Somos, Sep 26 2014
STATUS
approved