A057664 Primes of the form p + 2^p where p is prime.

11, 37, 618970019642690137449562201, 266998379490113760299377713271194014325338065294581596243380200977777465722580068752870260867389

Offset: 1

Author

Labos Elemer, Oct 16 2000

Keywords

• nonn

Comments

The next term has 212 digits. - Harvey P. Dale, Feb 19 2018

Crossrefs

Cf. A057663, A057665.

Programs

Mathematica

lst={};Do[p=Prime[n];If[PrimeQ[p=p+2^p],AppendTo[lst,p]],{n,5!}];lst (* Vladimir Joseph Stephan Orlovsky, Jan 28 2009 *)
Select[#+2^#&/@Prime[Range[100]],PrimeQ] (* Harvey P. Dale, Feb 19 2018 *)