|
Search: id:A058358
|
|
|
| A058358 |
|
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 - ... ). |
|
+0
1
|
|
| 1, 1, 2, 5, 11, 21, 48, 92, 199, 406, 824, 1737, 3496, 7312, 14959, 30787, 63693, 130387, 269786, 553986, 1141638, 2352405, 4837537, 9974721, 20519951, 42273108, 87046496, 179198379, 369124998, 759870636, 1564982079, 3222379032
(list; graph; listen)
|
|
|
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
|
Sequence in context: A144700 A000785 A049936 this_sequence A135119 A058696 A134508
Adjacent sequences: A058355 A058356 A058357 this_sequence A058359 A058360 A058361
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 16 2000
|
|
|
Search completed in 0.002 seconds
|
