A098145 p + P(p) where p is the n-th prime and P(p) is the unrestricted partition number of p.

4, 6, 12, 22, 67, 114, 314, 509, 1278, 4594, 6873, 21674, 44624, 63304, 124801, 329984, 831879, 1121566, 2679756, 4697276, 6185762, 13848729, 23338552, 49996014, 133231027, 214481227, 271249053, 431149496, 541946349, 851376741

Offset

1,1

Links

Table of n, a(n) for n=1..30.

Formula

a(n) = A000040(n) + A000041(A000040(n)).

Example

If p=17, P(p) = 297 and 17 + 297 = 314.

Maple

a:= n-> (p-> p+combinat[numbpart](p))(ithprime(n)):
seq(a(n), n=1..30);  # Alois P. Heinz, Aug 26 2015

Mathematica

Table[Prime[n] + PartitionsP[Prime[n]], {n, 1, 50}] (* Stefan Steinerberger, Feb 28 2006 *)

Crossrefs

Cf. A000040, A000041.

Sequence in context: A050558 A331192 A255843 * A307189 A054167 A303198

Adjacent sequences: A098142 A098143 A098144 * A098146 A098147 A098148

Keyword

nonn

Author

Parthasarathy Nambi, Sep 28 2004

Extensions

More terms from Stefan Steinerberger, Feb 28 2006

Status

approved