A064968 Numbers k such that 1000000000k+1, 1000000000k+3, 1000000000k+7, 1000000000k+9 are all primes.
14965, 16813, 20767, 23083, 34270, 40198, 93238, 112096, 189802, 192484, 251248, 333946, 334969, 363514, 374107, 375127, 376765, 383473, 405046, 419458, 462928, 498139, 649948, 703246, 704374, 732463, 767101, 781885, 806467, 812902, 842428
Offset: 1
Keywords
Links
- Harry J. Smith, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Range[10^6], PrimeQ[10^9# + 1] && PrimeQ[10^9# + 3] && PrimeQ[10^9# + 7] && PrimeQ[10^9# + 9] &]
-
PARI
{ n=0; for (m=1, 10^9, b=10^9*m; if(isprime(b + 1) && isprime(b + 3) && isprime(b + 7) && isprime(b + 9), write("b064968.txt", n++, " ", m); if (n==1000, return)) ) } \\ Harry J. Smith, Oct 01 2009