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

%S 1,-1,1,-1,1,0,-1,2,-3,3,-3,2,0,-3,5,-7,8,-7,4,1,-7,13,-17,19,-16,8,4,

%T -18,32,-42,44,-36,16,13,-47,79,-101,103,-80,31,40,-121,195,-241,240,

%U -178,55,117,-309,478,-575

%N Polynomial expansion sequence : p(x)=1 + x - x^5 + x^9 + x^10.

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

%t f[x_] = 1 + x - x^5 + x^9 + 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