A163150 Primes of the form A000041(p)+p, where p is some prime.

67, 509, 45060624733, 21424521360255636739, 404577789549846859589538794509144411672022828773, 22138618005861522471365237940368652982888104077311

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Jul 21 2009

Keywords

• nonn

Examples

			With p=11=A000040(5) = A163151(1), a(1)= A000041(11)+11 = 67 is prime.
		

Crossrefs

Cf. A098145

Programs

Mathematica

f[n_]:=PartitionsP[n]+n; lst={};Do[p=Prime[n];If[PrimeQ[f[p]],AppendTo[lst, f[p]]],{n,6!}];lst

Formula

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

Extensions

Removed Mathematica specific language in the definition - R. J. Mathar, Sep 11 2009