%I #14 Sep 08 2022 08:45:17
%S 11,13,23,37,43,53,71,79,83,127,167,179,181,191,193,233,251,281,307,
%T 317,421,433,487,571,617,653,659,673,739,809,881,907,911,1033,1049,
%U 1093,1103,1117,1187,1201,1259,1297,1399,1423,1451,1499,1553,1667,1693,1709
%N Primes p such that 3*p+20 and 20*p+3 are primes.
%t Select[Prime[Range[220]], PrimeQ[20#+3]&&PrimeQ[3#+20]&]
%o (Magma) [p: p in PrimesUpTo(10000)| IsPrime(3*p+20) and IsPrime(20*p+3)] // _Vincenzo Librandi_, Nov 13 2010
%K nonn
%O 1,1
%A _Zak Seidov_, May 07 2005
|