A111709 Expansion of (x^8-x^7+x^5-x+1)*(x^4+1) / ((x+1)*(x^2+1)*(x^4-x^2+1)*(x^2-x+1)*(x^2+x+1)*(x-1)^2).

1, 0, 0, 0, 1, 1, 1, 0, 1, 2, 2, 1, 3, 2, 2, 2, 3, 3, 3, 2, 3, 4, 4, 3, 5, 4, 4, 4, 5, 5, 5, 4, 5, 6, 6, 5, 7, 6, 6, 6, 7, 7, 7, 6, 7, 8, 8, 7, 9, 8, 8, 8, 9, 9, 9, 8, 9, 10, 10, 9, 11, 10, 10, 10, 11, 11, 11, 10, 11, 12, 12, 11, 13, 12, 12, 12, 13, 13, 13, 12, 13, 14, 14, 13, 15, 14, 14, 14, 15

Offset

0,10

Links

Colin Barker, Table of n, a(n) for n = 0..1000

Index entries for linear recurrences with constant coefficients, signature (1,0,0,0,0,0,0,0,0,0,0,1,-1).

Formula

a(n) = a(n-1) + a(n-12) - a(n-13) for n>12. - Colin Barker, May 18 2019

Mathematica

CoefficientList[Series[(x^8 - x^7 + x^5 - x + 1)*(x^4 + 1)/(((x + 1)*(x^2 + 1)*(x^4 - x^2+ 1)*(x^2 - x + 1)*(x^2 + x + 1)*(x - 1)^2)), {x, 0, 88}], x] (* Dylan Delgado, Mar 02 2021 *)

Prog

(PARI) Vec((1 + x^4)*(1 - x + x^5 - x^7 + x^8) / ((1 - x)^2*(1 + x)*(1 - x + x^2)*(1 + x^2)*(1 + x + x^2)*(1 - x^2 + x^4)) + O(x^40)) \\ Colin Barker, May 18 2019

Crossrefs

Sequence in context: A355244 A364730 A283004 * A348911 A039996 A039994

Adjacent sequences: A111706 A111707 A111708 * A111710 A111711 A111712

Keyword

nonn,easy

Author

Creighton Dement, Nov 17 2005

Status

approved