|
Search: id:A058354
|
|
|
| A058354 |
|
Coefficients in the series (1 + x - x^4 - x^6 - x^8 - x^9 - x^10 - x^12 - x^14 ...)/(1 - x^2 - x^3 - x^5 - x^7 - x^11 - x^13 ...). |
|
+0
1
|
|
| 1, 1, 1, 2, 1, 4, 3, 7, 9, 11, 21, 25, 43, 60, 88, 134, 189, 291, 419, 625, 924, 1352, 2015, 2953, 4379, 6454, 9522, 14079, 20745, 30671, 45239, 66802, 98627, 145546, 214939, 317205, 468351, 691355, 1020566, 1506697, 2224055, 3283416, 4846906, 7155215
(list; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
MATHEMATICA
|
CoefficientList[ Series[ (1 + x - 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: A026255 A109250 A138236 this_sequence A085930 A087207 A074987
Adjacent sequences: A058351 A058352 A058353 this_sequence A058355 A058356 A058357
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 16 2000
|
|
|
Search completed in 0.002 seconds
|
