A163151 Primes p such that A000041(p)+p are also prime numbers.

11, 19, 151, 419, 2161, 2311, 2539, 4831, 5563, 6961, 8363, 9007, 9661, 12347, 20533, 21493, 31033, 45737, 45817, 46919, 49363, 59419, 60017, 82883, 86561, 93491, 99709, 104231, 105499, 113381, 125471

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Jul 21 2009

Keywords

• nonn

Crossrefs

Cf. A098145, A163150

Programs

Mathematica

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

Formula

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

Extensions

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

Extended by D. S. McNeil, Dec 05 2010