login
A098145
p + P(p) where p is the n-th prime and P(p) is the unrestricted partition number of p.
4
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
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
Sequence in context: A050558 A331192 A255843 * A307189 A054167 A303198
KEYWORD
nonn
AUTHOR
Parthasarathy Nambi, Sep 28 2004
EXTENSIONS
More terms from Stefan Steinerberger, Feb 28 2006
STATUS
approved