OFFSET
1,1
MATHEMATICA
Select[Prime[Range[1000000]], PrimeQ[ #+6]&&PrimeQ[ #^2+6^2]&&PrimeQ[ #^4+6^4]&&PrimeQ[ #^8+6^8]&]
Select[Prime[Range[2*10^6]], AllTrue[{#+6, #^2+36, #^4+1296, #^8+ 1679616}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jun 22 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 26 2005
EXTENSIONS
More terms from Harvey P. Dale, Jun 22 2019
STATUS
approved