A064965 1000000n+1, 1000000n+3, 1000000n+7, 1000000n+9 are all primes.

14311, 14659, 23299, 40861, 43303, 46405, 62239, 67327, 77071, 94237, 102796, 115201, 120220, 134968, 138721, 152980, 252715, 260947, 272365, 274534, 285244, 298342, 304489, 305713, 311032, 318802, 324025, 325321, 338908, 343885, 352621

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^6# + 1] && PrimeQ[10^6# + 3] && PrimeQ[10^6# + 7] && PrimeQ[10^6# + 9] &]
Select[Range[400000],AllTrue[10^6*#+{1,3,7,9},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Mar 11 2015 *)