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

67, 509, 45060624733, 21424521360255636739, 404577789549846859589538794509144411672022828773, 22138618005861522471365237940368652982888104077311

Offset

1,1

Links

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

Formula

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

Example

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

Mathematica

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

Crossrefs

Cf. A098145

Sequence in context: A342803 A219736 A257747 * A120717 A200963 A245878

Adjacent sequences: A163147 A163148 A163149 * A163151 A163152 A163153

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Jul 21 2009

Extensions

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

Status

approved