A064967 100000000n+1, 100000000n+3, 100000000n+7, 100000000n+9 are all primes.

27346, 62101, 149650, 168130, 207670, 230830, 242443, 249439, 257227, 278521, 300028, 329389, 342700, 401980, 436315, 452281, 456985, 523972, 528946, 530671, 535918, 612595, 642832, 657151, 732799, 733783, 746848, 758857, 857662, 866608

Offset: 1

Author

Robert G. Wilson v, Oct 29 2001

Keywords

• nonn

Crossrefs

Cf. A007811 and A064687.

Programs

Mathematica

Select[Range[10^6], PrimeQ[10^8# + 1] && PrimeQ[10^8# + 3] && PrimeQ[10^8# + 7] && PrimeQ[10^8# + 9] &]
Select[Range[900000],AllTrue[100000000#+{1,3,7,9},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, May 14 2016 *)