login
Primes p such that 3*p + 22 and 22*p + 3 are primes.
0

%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