1,1
Select[Prime[Range[1000000]], PrimeQ[ #+6]&&PrimeQ[ #^2+6^2]&&PrimeQ[ #^4+6^4]&&PrimeQ[ #^8+6^8]&]
Sequence in context: A050202 A078966 A094231 * A045940 A124057 A045941
Adjacent sequences: A107437 A107438 A107439 * A107441 A107442 A107443
nonn
Zak Seidov (zakseidov(AT)yahoo.com), May 26 2005