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