login
Coefficients in the series (1 + x - x^4 - x^6 - x^8 - x^9 - x^10 - x^12 - x^14 ...)/(1 - x^2 - x^3 - x^5 - x^7 - x^11 - x^13 ...).
0

%I #2 Mar 30 2012 17:30:28

%S 1,1,1,2,1,4,3,7,9,11,21,25,43,60,88,134,189,291,419,625,924,1352,

%T 2015,2953,4379,6454,9522,14079,20745,30671,45239,66802,98627,145546,

%U 214939,317205,468351,691355,1020566,1506697,2224055,3283416,4846906,7155215

%N Coefficients in the series (1 + x - x^4 - x^6 - x^8 - x^9 - x^10 - x^12 - x^14 ...)/(1 - x^2 - x^3 - x^5 - x^7 - x^11 - x^13 ...).

%t CoefficientList[ Series[ (1 + x - Apply[ Plus, x^Select[ Range[ 2, 50 ], ! PrimeQ[ # ] & ] ] )/(1 - Apply[ Plus, x^Select[ Range[ 2, 50 ], PrimeQ[ # ] & ] ] ), {x, 0, 50} ], x ]

%K nonn

%O 0,4

%A _Robert G. Wilson v_, Dec 16 2000