OFFSET
1,2
MATHEMATICA
Select[Range[10000], PrimeQ[#^5 + 2^#] &] (* Vincenzo Librandi, Oct 04 2012 *)
PROG
(PARI) for(n=1, 2500, if(isprime(n^5+2^n), print1(n", ")))
CROSSREFS
KEYWORD
nonn,more,changed
AUTHOR
Zak Seidov, Oct 17 2002
EXTENSIONS
More terms from Ralf Stephan, Mar 24 2003
a(11)-a(13) from Vincenzo Librandi, Oct 04 2012
a(14)-a(16) from Michael S. Branicky, Jul 13 2023
a(17)-a(19) from Michael S. Branicky, Oct 23 2024
STATUS
approved