OFFSET
1,3
COMMENTS
Conjecture: sequence is finite.
No more terms < 88075. - David Wasserman, Jul 20 2005
EXAMPLE
9 is a member as 2^9 + 9 = 521 and 2^9 - 9 = 503 are primes.
MATHEMATICA
Join[{0, 1}, Select[Range[1000], PrimeQ[2^# + #] && PrimeQ[2^# -#] &]] (* Vincenzo Librandi, Dec 08 2015 *)
PROG
(Magma) [0, 1] cat [n: n in [0..1000] | IsPrime(2^n+n) and IsPrime(2^n-n)]; // Vincenzo Librandi, Dec 08 2015
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Amarnath Murthy, Sep 25 2003
STATUS
approved