%I #14 Sep 08 2022 08:45:17
%S 5,7,19,29,59,73,97,103,139,167,197,223,239,337,349,383,397,409,419,
%T 503,547,577,587,593,617,643,677,743,757,787,839,883,1049,1093,1097,
%U 1123,1163,1217,1249,1277,1303,1399,1487,1627,1637,1657,1667,1697,1753,1847
%N Primes p such that 3*p + 22 and 22*p + 3 are primes.
%t Select[Prime[Range[220]], PrimeQ[22#+3]&&PrimeQ[3#+22]&]
%o (Magma) [p: p in PrimesUpTo(10000)| IsPrime(3*p+22) and IsPrime(22*p+3)]; // _Vincenzo Librandi_, Nov 13 2010
%K nonn
%O 1,1
%A _Zak Seidov_, May 07 2005