OFFSET
1,1
MATHEMATICA
Do[If[(PrimeQ[x^8+1])&&(PrimeQ[x^8+3])&&(PrimeQ[x^8+7])&&(PrimeQ[x^8+9]), Print[x]], {x, 1, 30000000}] (*Artur Jasinski*)
Select[Range[567*10^5], AllTrue[#^8 +{1, 3, 7, 9}, PrimeQ]&] (* Harvey P. Dale, Oct 22 2024 *)
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
Artur Jasinski, Dec 11 2006
STATUS
approved