A064966 Numbers n such that 10000000n+1, 10000000n+3, 10000000n+7, 10000000n+9 are all primes.

12022, 15298, 44413, 61507, 72199, 87463, 96538, 108862, 112129, 117694, 122176, 125716, 175078, 185746, 201493, 227221, 250414, 267844, 273460, 371194, 387028, 391765, 397066, 397792, 454921, 581365, 601177, 621010, 642199, 659788, 677206

Offset: 1

Author

Robert G. Wilson v, Oct 29 2001

Keywords

• nonn

Crossrefs

Cf. A007811 and A064687.

Programs

Mathematica

Select[Range[10^6/2], PrimeQ[10^7# + 1] && PrimeQ[10^7# + 3] && PrimeQ[10^7# + 7] && PrimeQ[10^7# + 9] &]
Select[Range[678000],AllTrue[# 10^7+{1,3,7,9},PrimeQ]&] (* Harvey P. Dale, Nov 13 2022 *)