|
%I #17 Sep 08 2022 08:45:17
%S 5,19,29,31,41,59,89,131,199,251,271,379,509,619,691,829,929,1021,
%T 1049,1109,1181,1231,1259,1489,1511,1721,1811,1951,1979,2269,2311,
%U 2351,2551,2749,2801,2861,2969,3011,3109,3209,3221,3331,3499,3541,3571,3631,3701
%N Primes p such that 3*p + 16 and 16*p + 3 are primes.
%t Select[Prime[Range[220]], PrimeQ[16#+3]&&PrimeQ[3#+16]&]
%o (Magma) [p: p in PrimesUpTo(10000)| IsPrime(3*p+16) and IsPrime(16*p+3)]; // _Vincenzo Librandi_, Nov 13 2010
%K nonn
%O 1,1
%A _Zak Seidov_, May 07 2005
%E More terms from _Vincenzo Librandi_, Apr 01 2010
|
