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