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