A089920 Indices of primes p such that 7^p - 2 is prime.
1, 4, 11, 149
Offset: 1
Programs
-
Mathematica
Select[Range[500],PrimeQ[7^Prime[#]-2]&] (* Harvey P. Dale, May 02 2011 *) Position[Prime[Range[150]],?(PrimeQ[7^#-2]&)]//Flatten (* _Harvey P. Dale, May 11 2016 *)
-
PARI
forprime(p=2,1e4,if(ispseudoprime(7^p-2),print1(primepi(p),",")))
Formula
Extensions
Definition clarified by Harvey P. Dale, May 02 2011
Comments