A064962 Numbers k such that 1000k+1, 1000k+3, 1000k+7, 1000k+9 are all primes.
13, 1447, 2062, 5527, 6760, 8062, 11554, 11890, 14467, 23113, 23482, 24952, 25150, 28201, 28300, 31072, 31576, 36217, 41584, 41599, 45331, 50635, 56914, 66688, 67639, 69376, 75079, 80002, 81157, 82240, 84517, 88948, 90010, 90376, 91018
Offset: 1
Keywords
Links
- Harry J. Smith, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Range[10^5], PrimeQ[1000# + 1] && PrimeQ[1000# + 3] && PrimeQ[1000# + 7] && PrimeQ[1000# + 9] &]
-
PARI
{ n=0; for (m=1, 10^9, if(isprime(1000*m + 1) && isprime(1000*m + 3) && isprime(1000*m + 7) && isprime(1000*m + 9), write("b064962.txt", n++, " ", m); if (n==1000, return)) ) } \\ Harry J. Smith, Oct 01 2009