%I #28 Sep 08 2022 08:46:14
%S 2,3,11,1499,2039
%N Prime p such that 2^p + 33 is also prime.
%C a(6) > 203018.
%C A000040 INTERSECT A247953.
%e For p=3, 2^3 + 33 = 41, which is prime.
%t Select[Prime[Range[100000]], PrimeQ[(2^# + 33)] &]
%o (Magma) [p: p in PrimesUpTo(1000) | IsPrime(2^p+33)]; // _Vincenzo Librandi_, Oct 05 2015
%o (PARI) forprime(p=2, 10000, if (isprime(2^p + 33), print1(p", "))); \\ _Altug Alkan_, Oct 05 2015
%Y Cf. A157007.
%Y Cf. similar sequences of the type "Primes p such that 2^p + k" listed in A262098.
%K nonn,more
%O 1,1
%A _Robert Price_, Oct 04 2015
|