A147782 Primes p such that 7^p - 2 is prime.
2, 7, 31, 859
Offset: 1
Programs
-
Mathematica
Select[Prime[Range[150]],PrimeQ[7^#-2]&] (* Harvey P. Dale, Feb 20 2013 *)
-
PARI
g(n,m)=forprime(p=2,n,y=m^p-2;if(ispseudoprime(y),print1(p",")))
Formula
Extensions
Offset corrected by Mohammed Yaseen, Jul 20 2023
Comments