|
| |
|
|
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, 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; refs; listen; history; internal format)
|
|
|
|
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
| Sequence in context: A017991 A065614 A183324 * A178850 A018171 A122628
Adjacent sequences: A058353 A058354 A058355 * A058357 A058358 A058359
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 16 2000
|
| |
|
|
