A058356 Coefficients in the series (1 + 2x^2 + 3x^3 + 5x^5 + 7x^7 + 11x^11 + 13x^13 + ... )/(1 - x - 4x^4 - 6x^6 - 8x^8 - 9x^9 - 10x^10 - 12x^12 - 14x^14 - ... ).

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

Offset

0,3

Links

Table of n, a(n) for n=0..33.

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 * A270048 A295719 A178850

Adjacent sequences: A058353 A058354 A058355 * A058357 A058358 A058359

Keyword

nonn

Author

Robert G. Wilson v, Dec 16 2000

Extensions

Name corrected by Sean A. Irvine, Aug 04 2022

Status

approved