%I #17 Sep 08 2022 08:45:17
%S 3,17,29,41,47,59,131,251,257,269,293,449,563,587,701,719,797,827,
%T 1013,1091,1193,1361,1433,1487,1499,1511,1559,1613,1823,1847,1931,
%U 1973,2003,2357,2381,2621,2687,2777,2789,2927,2939,2969,2999,3221,3461,3557,4019
%N Primes p such that 5*p + 22 and 22*p + 5 are primes.
%t Select[Prime[Range[220]], PrimeQ[22#+5]&&PrimeQ[5#+22]&]
%o (Magma) [p: p in PrimesUpTo(10000)| IsPrime(5*p+22) and IsPrime(22*p+5)]; // _Vincenzo Librandi_, Nov 13 2010
%K nonn
%O 1,1
%A _Zak Seidov_, May 07 2005
%E More terms from _R. J. Mathar_ and _Vincenzo Librandi_, Mar 25 2010
|