A058315 Apply inverse of "INVERT" transform to primes with prime exponents.

1, 0, -2, -3, 4, 7, 1, -23, -8, 37, 71, -94, -187, 17, 665, 210, -1208, -2057, 2521, 5812, -97, -18509, -7936, 34178, 58031, -66431, -169389, 2624, 517375, 258067, -984878, -1666778, 1770838, 4981809, 47645, -14524297, -8286531, 27993110, 47938128, -47086984, -145159967, -5324186, 408613533

Offset

0,3

Links

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

N. J. A. Sloane, Transforms

Mathematica

CoefficientList[ Series[1 /(1 + Sum[ Prime[n]*x^Prime[n], {n, 1, 50} ] ), {x, 0, 45} ], x]

Crossrefs

Sequence in context: A361396 A021903 A274767 * A306352 A072717 A139072

Adjacent sequences: A058312 A058313 A058314 * A058316 A058317 A058318

Keyword

sign

Author

Robert G. Wilson v, Dec 11 2000

Status

approved