OFFSET
1,1
COMMENTS
MATHEMATICA
Select[Prime[Range[220]], PrimeQ[8#+1]&&PrimeQ[1#+8]&]
PROG
(Magma) [p: p in PrimesUpTo(10000) | IsPrime(p+8) and IsPrime(8*p+1)]; // Vincenzo Librandi, Nov 13 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 07 2005
STATUS
approved