%I #10 Sep 08 2022 08:45:50
%S 5,83,419,479,1259,1583,1949,2099,2609,4049,4079,5333,6359,6473,7019,
%T 7523,7559,8699,11933,14939,15329,17573,21839,22013,23633,24683,25733,
%U 25763,26633,28703,28979,29819,31079,31139,32999,34439,35129,38729
%N Primes p such that 3*p+2, 5*p+4 and 7*p+6 are also prime.
%H Vincenzo Librandi, <a href="/A173876/b173876.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[5000]], PrimeQ[3 # + 2] && PrimeQ[5 # + 4] && PrimeQ[7 # + 6] &] (* _Vincenzo Librandi_, Apr 10 2013 *)
%t Select[Prime[Range[5000]],AllTrue[{3#+2,5#+4,7#+6},PrimeQ]&] (* _Harvey P. Dale_, Jul 14 2022 *)
%o (Magma) [p: p in PrimesUpTo(100000) | IsPrime(p) and IsPrime(3*p+2) and IsPrime(5*p+4) and IsPrime(7*p+6)];
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Mar 07 2010
|