OFFSET
0,2
MATHEMATICA
p[x] = 1/(1 - 3 x + 2 x^2 + 2 x^3 - 4 x^4 + 4 x^5 - 2 x^6 - 2 x^7 + 3 x^8 - x^9 - x^17 + 3 x^18 - 2 x^19 - 2 x^20 + 4 x^21 - 4 x^22 + 2 x^23 + 2 x^24 - 3 x^25 + x^26);
q[x_] = Expand[p[x]];
CoefficientList[Series[q[x], {x, 0, 40}], x]
CROSSREFS
KEYWORD
nonn,easy,less
AUTHOR
Roger L. Bagula, Aug 26 2009
STATUS
approved