OFFSET
1,1
COMMENTS
MATHEMATICA
maxp = 281;
Union[Sort[Reap[Do[p = 2^i + q^j; If[p <= maxp && PrimeQ[p], Sow[p]], {i, 0, Log[2, maxp]//Ceiling}, {j, 1, Log[3, maxp]//Ceiling}, {q, Prime[Range[2, PrimePi[maxp]]]}]][[2, 1]]]] (* Jean-François Alcover, Aug 03 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jan 17 2006
EXTENSIONS
Edited by N. J. A. Sloane, Apr 30 2010
Terms a(1)=2 and a(2)=3 removed from Data by Jean-François Alcover, Aug 03 2018
STATUS
approved