login
Primes p such that p-8 or p+8 is prime.
1

%I #9 Jul 12 2022 13:22:35

%S 3,5,11,13,19,23,29,31,37,53,59,61,67,71,79,89,97,101,109,131,139,149,

%T 157,173,181,191,199,233,241,263,269,271,277,359,367,389,397,401,409,

%U 431,439,449,457,479,487,491,499,563,569,571,577,593,599,601,607,653

%N Primes p such that p-8 or p+8 is prime.

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

%t Select[Prime[Range[150]], PrimeQ[ # - 8] || PrimeQ[ # + 8] &] (* _Stefan Steinerberger_, Dec 22 2007 *)

%t Select[Prime[Range[150]],AnyTrue[#+{8,-8},PrimeQ]&] (* _Harvey P. Dale_, Jul 12 2022 *)

%Y Cf. A136207, A023202.

%K nonn

%O 1,1

%A _Carlos Alves_, Dec 21 2007, Dec 22 2007

%E More terms from _Stefan Steinerberger_, Dec 22 2007