A058697 P(p(n)), P = primes (A000040), p = partition numbers (A000041).
2, 2, 3, 5, 11, 17, 31, 47, 79, 113, 181, 263, 389, 547, 761, 1049, 1453, 1951, 2659, 3511, 4643, 6073, 7933, 10243, 13249, 16981, 21713, 27551, 34841, 43853, 55147, 68863, 85819, 106397, 131779, 162473, 199889, 245039, 300233, 365513
Offset: 0
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 0..100
Crossrefs
Cf. A058698.
Programs
-
Mathematica
Prime[PartitionsP[Range[0,40]]] (* Harvey P. Dale, Sep 21 2014 *)
-
PARI
a(n)={prime(numbpart(n))} \\ Andrew Howroyd, Dec 28 2017
Comments