OFFSET
1,1
MATHEMATICA
Select[Range[10^6/4], PrimeQ[10^5# + 1] && PrimeQ[10^5# + 3] && PrimeQ[10^5# + 7] && PrimeQ[10^5# + 9] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Oct 29 2001
STATUS
approved