OFFSET
1,1
MATHEMATICA
Select[Prime[Range[30000]], PrimeQ[ #+6]&&PrimeQ[ #^2+6^2]&&PrimeQ[ #^4+6^4]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 26 2005
STATUS
approved