|
%I #2 Mar 30 2012 17:30:28
%S 1,1,2,5,11,21,48,92,199,406,824,1737,3496,7312,14959,30787,63693,
%T 130387,269786,553986,1141638,2352405,4837537,9974721,20519951,
%U 42273108,87046496,179198379,369124998,759870636,1564982079,3222379032
%N Coefficients in the series (1 + x + 4x^4 + 6x^6 + 8x^8 + 9x^9 + 10x^10 + 12x^12 + 14x^14 + ... )/(1 - 2x^2 - 3x^3 - 5x^5 - 7x^7 - 11x^11 - 13x^13 - ... ).
%t 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 ]
%K nonn
%O 0,3
%A _Robert G. Wilson v_, Dec 16 2000
|
