|
Search: id:A058356
|
|
|
| A058356 |
|
Coefficients in the series (1 + 2x^2 + 3x^3 + 5x^5 + 7x^7 + 11x^11 + 13x^13 + ... )/(1 - 4x^4 - 6x^6 - 8x^8 - 9x^9 - 10x^10 - 12x^12 - 14x^14 - ... ). |
|
+0
1
|
|
| 1, 1, 3, 6, 10, 19, 37, 74, 140, 269, 520, 1026, 1984, 3831, 7368, 14302, 27707, 53729, 103826, 201035, 389094, 753858, 1458852, 2824336, 5466167, 10584567, 20489682, 39669401, 76787404, 148660956, 287786132, 557153147, 1078562051, 2088027468
(list; graph; listen)
|
|
|
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
|
Adjacent sequences: A058353 A058354 A058355 this_sequence A058357 A058358 A058359
Sequence in context: A091714 A017991 A065614 this_sequence A018171 A122628 A068865
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 16 2000
|
|
|
Search completed in 0.002 seconds
|
