login
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
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
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
KEYWORD
nonn,easy
AUTHOR
Creighton Dement, Nov 17 2005
STATUS
approved