OFFSET
1,2
MATHEMATICA
Select[Range[1, 10000, 2], PrimeQ[#^2 + 2 # + 2^#] &]
PROG
(PARI) is(n)=ispseudoprime(n^2+2*n+2^n) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Jan 07 2013
EXTENSIONS
a(19) from Bruno Berselli, Jan 09 2013
STATUS
approved