%I #16 Sep 08 2022 08:45:17
%S 3,19,37,43,139,163,181,199,283,331,337,373,397,433,601,631,643,691,
%T 709,823,907,991,997,1039,1093,1213,1423,1429,1459,1471,1609,1741,
%U 1753,1783,1933,1987,2029,2083,2089,2341,2557,2593,2617,2677,2731,2797,2887,3061
%N Primes p such that 5*p+14 and 14*p+5 are primes.
%t Select[Prime[Range[220]], PrimeQ[14#+5]&&PrimeQ[5#+14]&]
%o (Magma) [p: p in PrimesUpTo(10000)| IsPrime(5*p+14) and IsPrime(14*p+5)] // _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
|