A173879 - OEIS

%I #10 Sep 08 2022 08:45:50

%S 5,53,389,509,593,599,839,2879,2963,4013,4799,5273,6473,6719,6869,

%T 7499,8243,10589,11003,11069,15959,17483,20123,21383,25073,25583,

%U 27059,28319,32213,34019,34253,34913,37013,38453,38609,38933,41039,42569,43283

%N Primes p such that 3*p+4, 5*p+6 and 7*p+8 are also prime.

%H Vincenzo Librandi, <a href="/A173879/b173879.txt">Table of n, a(n) for n = 1..1000</a>

%t Select[Prime[Range[5000]], PrimeQ[3 # + 4] && PrimeQ[5 # + 6] && PrimeQ[7 # + 8]&] (* _Vincenzo Librandi_, Apr 10 2013 *)

%o (Magma) [p: p in PrimesUpTo(100000) | IsPrime(p) and IsPrime(3*p+4) and IsPrime(5*p+6) and IsPrime(7*p+8)];

%K nonn,easy

%O 1,1

%A _Vincenzo Librandi_, Mar 07 2010