A143604 - OEIS

%I #3 Mar 30 2012 17:34:27

%S 1,0,-1,1,1,-1,0,2,-1,-2,3,1,-4,1,4,-4,-3,7,-1,-9,6,7,-12,-2,16,-8,

%T -16,20,8,-30,8,33,-30,-23,53,-3,-65,44,56,-89,-16,123,-55,-122,145,

%U 66,-224,53,251,-221,-183

%N Polynomial expansion sequence : p(x)=1 + x^2 - x^3 - x^5 - x^7 + x^8 + x^10.

%F p(x)=1 + x^2 - x^3 - x^5 - x^7 + x^8 + x^10; a(n)=expansion_coefficients(x^10*p(1/x)),

%t f[x_] = 1 + x^2 - x^3 - x^5 - x^7 + x^8 + x^10; g[x] = ExpandAll[x^10*f[1/x]]; a = Table[SeriesCoefficient[Series[1/g[x], {x, 0, 50}], n], {n, 0, 50}]

%K sign

%O 1,8

%A _Roger L. Bagula_, Oct 26 2008