OFFSET
1,1
EXAMPLE
For p=3, 2^3 + 33 = 41, which is prime.
MATHEMATICA
Select[Prime[Range[100000]], PrimeQ[(2^# + 33)] &]
PROG
(Magma) [p: p in PrimesUpTo(1000) | IsPrime(2^p+33)]; // Vincenzo Librandi, Oct 05 2015
(PARI) forprime(p=2, 10000, if (isprime(2^p + 33), print1(p", "))); \\ Altug Alkan, Oct 05 2015
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert Price, Oct 04 2015
STATUS
approved