A351636 - OEIS

%I #26 Feb 20 2022 06:44:22

%S 5,7,79,347,449,4703,8923,10567,12041,14221,18223,27281,29959,30677,

%T 31153,41023,42139,47737,48757,53093,55441,61603,72701,73999,75269,

%U 79907,90833,98347,100019,108571,117563,132589,132623,134077,136067,157721,161561,185071,185567,189437,241601,246661,249311

%N Primes p such that if q and r are the next two primes, 6*q-r, 6*q-p, 6*q+p and 6*q+r are all prime.

%H Robert Israel, <a href="/A351636/b351636.txt">Table of n, a(n) for n = 1..10000</a>

%e a(3) = 79 is a term because the next two primes are 83 and 89, and 6*83-89 = 409, 6*83-79 = 419, 6*83+79 = 577 and 6*83+89 = 587 are all prime.

%p R:=NULL: count:= 0:

%p q:= 2: r:= 3:

%p while count < 100 do

%p   p:= q; q:= r; r:= nextprime(r);

%p   if andmap(isprime, [6*q+p, 6*q-p, 6*q+r,6*q-r]) then

%p     count:= count+1; R:= R,p;

%p   fi

%p od:

%p R;

%K nonn

%O 1,1

%A _J. M. Bergot_ and _Robert Israel_, Feb 15 2022