|
%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
|
