A106018 - OEIS

%I #13 Sep 08 2022 08:45:17

%S 2,5,7,23,97,107,127,167,223,257,317,337,383,397,443,587,593,643,677,

%T 757,883,1087,1093,1163,1303,1427,1637,1657,1667,1913,1987,2143,2267,

%U 2347,2437,2473,2647,2683,3187,3253,3313,3373,3673,3793,4397,4517,4583

%N Primes p such that 22*p +- 3 are primes.

%t Select[Prime[Range[400]], PrimeQ[22#+3]&&PrimeQ[22#-3]&]

%o (Magma) [p: p in PrimesUpTo(100000)| IsPrime(22*p-3) and IsPrime(22*p+3)]; // _Vincenzo Librandi_, Nov 13 2010

%K nonn

%O 1,1

%A _Zak Seidov_, May 05 2005