OFFSET
1,1
COMMENTS
The next term has 212 digits. - Harvey P. Dale, Feb 19 2018
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Oct 16 2000
STATUS
approved