A283191 Prime numbers p such that (2^p - 5)/3 is prime.
7, 13, 19, 31, 373, 811, 1117, 5059, 12601
Offset: 1
Crossrefs
Cf. A000978.
Programs
-
Mathematica
Select[Prime@ Range[2, 1000], PrimeQ[(2^# - 5)/3] &] (* Michael De Vlieger, Mar 03 2017 *)
-
PARI
forprime(p=3, 30000, W= (2^p-5)/3; if(ispseudoprime(W), print1(p, ", ")))
Comments