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 this_sequence A045940 A124057 A045941
Adjacent sequences: A107437 A107438 A107439 this_sequence A107441 A107442 A107443
nonn
Zak Seidov (zakseidov(AT)yahoo.com), May 26 2005
Search completed in 0.002 seconds