login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%I #13 Feb 19 2018 17:26:40

%S 11,37,618970019642690137449562201,

%T 266998379490113760299377713271194014325338065294581596243380200977777465722580068752870260867389

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

%C The next term has 212 digits. - _Harvey P. Dale_, Feb 19 2018

%t lst={};Do[p=Prime[n];If[PrimeQ[p=p+2^p],AppendTo[lst,p]],{n,5!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Jan 28 2009 *)

%t Select[#+2^#&/@Prime[Range[100]],PrimeQ] (* _Harvey P. Dale_, Feb 19 2018 *)

%Y Cf. A057663, A057665.

%K nonn

%O 1,1

%A _Labos Elemer_, Oct 16 2000