A106017 - OEIS

%I #16 Oct 03 2024 13:27:38

%S 11,29,41,59,101,109,199,251,601,619,631,641,739,811,1021,1201,1319,

%T 1439,1609,1621,1789,2099,2141,2311,2531,2551,2969,3049,3109,3209,

%U 4001,4099,4201,4259,4481,4591,4651,4721,5009,5039,5081,5449,5531,5569,5779

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

%H Harvey P. Dale, <a href="/A106017/b106017.txt">Table of n, a(n) for n = 1..1000</a>

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

%t Select[Prime[Range[800]],AllTrue[16#+{3,-3},PrimeQ]&] (* _Harvey P. Dale_, Oct 03 2024 *)

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

%K nonn

%O 1,1

%A _Zak Seidov_, May 05 2005