OFFSET
1,1
MATHEMATICA
Select[ Range[ 2, 10^6, 2 ], PrimeQ[ #^2 + 1 ] && PrimeQ[ #^2 + 3 ] && PrimeQ[ #^2 + 7 ] && PrimeQ[ #^2 + 9 ] & ]
Select[Range[2, 1000000, 2], And@@PrimeQ[#^2+{1, 3, 7, 9}]&](* Harvey P. Dale, Oct 03 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 09 2000
STATUS
approved