OFFSET
0,3
MATHEMATICA
CoefficientList[ Series[ (1 + x - Apply[ Plus, Select[ Range[ 2, 50 ], !PrimeQ[ # ] & ]*x^Select[ Range[ 2, 50 ], !PrimeQ[ # ] & ] ] ) / (1 - Apply[ Plus, Select[ Range[ 2, 50 ], PrimeQ[ # ] & ]*x^Select[ Range[ 2, 50 ], PrimeQ[ # ] & ] ] ), {x, 0, 50} ], x ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Dec 16 2000
STATUS
approved