A355577 - OEIS

%I #10 Jul 13 2022 13:18:19

%S 7,11,127,347,659,1019,2689,4663,4817,5233,8387,13997,18257,19051,

%T 19181,23909,24109,28211,34483,38287,39761,41203,44647,45767,51829,

%U 57089,64019,70207,72671,73091,96821,100237,101021,101119,102607,102967,104231,120779,121171,126851,127541,130547,135727

%N Primes p such that 5*p+6, 5*p+12, 5*p+18 and 5*p+24 are all primes.

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

%e a(3) = 127 is a term because 127, 5*127+6 = 641, 5*p+12 = 647, 5*p+18 = 653 and 5*p+24 = 659 are all prime.

%p select(p -> andmap(isprime,[p,5*p+6, 5*p+12, 5*p+18, 5*p+24]), [seq(i,i=3..200000,2)]);

%t Select[Prime[Range[13000]], And @@ PrimeQ[5*# + 6*Range[4]] &] (* _Amiram Eldar_, Jul 08 2022 *)

%K nonn

%O 1,1

%A _J. M. Bergot_ and _Robert Israel_, Jul 08 2022