A106009 - OEIS

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

%S 2,5,13,23,43,61,83,89,107,173,181,223,233,313,317,349,379,467,523,

%T 659,673,727,769,811,911,971,1009,1051,1069,1097,1153,1279,1321,1433,

%U 1451,1549,1559,1583,1693,1777,1861,1993,2029,2063,2137,2213,2267,2357,2441

%N Primes p such that 20*p - 3 and 20*p + 3 are both primes.

%H Michael De Vlieger, <a href="/A106009/b106009.txt">Table of n, a(n) for n = 1..10000</a>

%t Select[Prime[Range[200]], PrimeQ[20#+3]&&PrimeQ[20#-3]&]

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

%K nonn

%O 1,1

%A _Zak Seidov_, May 05 2005