|
%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
| 