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,2

Links

Harry J. Smith, Table of n, a(n) for n = 1..1000

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 *)

Prog

(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

Crossrefs

Sequence in context: A138481 A167702 A350195 * A238194 A252263 A252361

Adjacent sequences: A064684 A064685 A064686 * A064688 A064689 A064690

Keyword

nonn

Author

Jason Earls, Oct 10 2001

Status

approved