login
A164787
Polynomial expansion of 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).
0
1, 3, 7, 13, 23, 37, 57, 83, 118, 162, 218, 286, 370, 470, 590, 730, 895, 1086, 1308, 1562, 1854, 2186, 2564, 2990, 3471, 4010, 4614, 5286, 6034, 6862, 7778, 8786, 9895, 11110, 12441, 13893, 15477, 17199, 19071, 21099, 23296, 25669, 28232, 30992
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
Sequence in context: A303853 A075321 A258030 * A131205 A256309 A058682
KEYWORD
nonn,easy,less
AUTHOR
Roger L. Bagula, Aug 26 2009
STATUS
approved