|
Search: id:A058355
|
|
|
| A058355 |
|
Coefficients in the series (1 + x^2 + x^3 + x^5 + x^7 + x^11 + x^13 + ... )/(1 - x^4 - x^6 - x^8 - x^9 - x^10 - x^12 - x^14 - ... ). |
|
+0
1
|
|
| 1, 1, 2, 3, 4, 6, 9, 14, 21, 32, 49, 76, 116, 177, 269, 411, 628, 961, 1467, 2241, 3422, 5229, 7987, 12202, 18636, 28469, 43488, 66436, 101483, 155024, 236804, 361740, 552581, 844113, 1289433, 1969707, 3008862, 4596267, 7021116, 10725264
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
MATHEMATICA
|
CoefficientList[ Series[ (1 + Apply[ Plus, x^Select[ Range[ 2, 50 ], PrimeQ[ # ] & ] ] )/(1 - Apply[ Plus, x^Select[ Range[ 2, 50 ], !PrimeQ[ # ] & ] ] ), {x, 0, 50} ], x ]
|
|
CROSSREFS
|
Sequence in context: A073941 A005428 A143951 this_sequence A099558 A018140 A005579
Adjacent sequences: A058352 A058353 A058354 this_sequence A058356 A058357 A058358
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 16 2000
|
|
|
Search completed in 0.002 seconds
|
