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,1

Links

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

Formula

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

Mathematica

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

Crossrefs

Cf. A098145, A163150

Sequence in context: A238332 A089773 A048389 * A020457 A032370 A295834

Adjacent sequences: A163148 A163149 A163150 * A163152 A163153 A163154

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Jul 21 2009

Extensions

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

Extended by D. S. McNeil, Dec 05 2010

Status

approved