A057737 Primes of the form 2^p + 3, where p is prime.
7, 11, 131, 147573952589676412931
Offset: 1
Keywords
Crossrefs
Cf. A057736.
Programs
-
Mathematica
Select[Table[2^p+3, {p, Prime[Range[67]]}], PrimeQ] (* Metin Sariyar, Aug 09 2019 *)
-
PARI
forprime(p=1, , my(x=2^p+3); if(ispseudoprime(x), print1(x, ", "))) \\ Felix Fröhlich, Aug 09 2019
Formula
a(n) = 2^A057736(n) + 3. - Felix Fröhlich, Aug 09 2019
Comments