login
Numbers k such that 100k+1, 100k+3, 100k+7, 100k+9 are all primes.
9

%I #13 Jun 21 2018 01:59:37

%S 1,130,253,1222,1657,2437,2476,3589,5188,5395,6073,9763,10063,10225,

%T 10687,11176,11677,13297,13399,13522,13588,14008,14470,14614,16168,

%U 16276,16531,16591,20164,20620,21418,21445,21775,23734,25351,27049

%N Numbers k such that 100k+1, 100k+3, 100k+7, 100k+9 are all primes.

%H Harry J. Smith, <a href="/A064687/b064687.txt">Table of n, a(n) for n = 1..1000</a>

%t Select[Range[30000], PrimeQ[100# + 1] && PrimeQ[100# + 3] && PrimeQ[100# + 7] && PrimeQ[100# + 9] &]

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

%o (PARI) for(n=1,100000, if(isprime(100*n+1) && isprime(100*n+3) && isprime(100*n+7) && isprime(100*n+9),print1(n,",")))

%o (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

%K nonn

%O 1,2

%A _Jason Earls_, Oct 10 2001