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