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 ...).

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

Offset

0,4

Links

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

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 * A085930 A258863 A087207

Adjacent sequences: A058351 A058352 A058353 * A058355 A058356 A058357

Keyword

nonn

Author

Robert G. Wilson v, Dec 16 2000

Status

approved