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).

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

Links

Table of n, a(n) for n=0..43.

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

Adjacent sequences: A164784 A164785 A164786 * A164788 A164789 A164790

Keyword

nonn,easy,less

Author

Roger L. Bagula, Aug 26 2009

Status

approved