|
%I #10 Dec 19 2022 04:17:10
%S 1,3,7,13,23,37,57,83,118,162,218,286,370,470,590,730,895,1086,1308,
%T 1562,1854,2186,2564,2990,3471,4010,4614,5286,6034,6862,7778,8786,
%U 9895,11110,12441,13893,15477,17199,19071,21099,23296,25669,28232,30992
%N 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).
%t 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);
%t q[x_] = Expand[p[x]];
%t CoefficientList[Series[q[x], {x, 0, 40}], x]
%K nonn,easy,less
%O 0,2
%A _Roger L. Bagula_, Aug 26 2009
|
