OFFSET
1,1
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Oct 29 2001
STATUS
approved