OFFSET
1,1
MATHEMATICA
Select[ Range[ 1, 5 10^7], PrimeQ[ #^2 + 1] && PrimeQ[ #^2 + 3] && PrimeQ[ #^2 + 7] && PrimeQ[ #^2 + 9] && PrimeQ[ #^2 + 13] & ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 11 2000
STATUS
approved