A064687 Numbers k such that 100k+1, 100k+3, 100k+7, 100k+9 are all primes.
1, 130, 253, 1222, 1657, 2437, 2476, 3589, 5188, 5395, 6073, 9763, 10063, 10225, 10687, 11176, 11677, 13297, 13399, 13522, 13588, 14008, 14470, 14614, 16168, 16276, 16531, 16591, 20164, 20620, 21418, 21445, 21775, 23734, 25351, 27049
Offset: 1
Keywords
Links
- Harry J. Smith, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Range[30000], PrimeQ[100# + 1] && PrimeQ[100# + 3] && PrimeQ[100# + 7] && PrimeQ[100# + 9] &] Select[Range[30000],AllTrue[100#+{1,3,7,9},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Sep 28 2015 *) -
PARI
for(n=1,100000, if(isprime(100*n+1) && isprime(100*n+3) && isprime(100*n+7) && isprime(100*n+9),print1(n,",")))
-
PARI
{ n=0; for (m=1, 10^9, if(isprime(100*m + 1) && isprime(100*m + 3) && isprime(100*m + 7) && isprime(100*m + 9), write("b064687.txt", n++, " ", m); if (n==1000, break)) ) } \\ Harry J. Smith, Sep 22 2009