%I #16 Sep 08 2022 08:45:17
%S 104597,648007,855467,896647,1230337,2307407,2629547,2884787,4116823,
%T 5526133,6509143,10446817,11745017,14962517,16421297,16632997,
%U 20242127,21919517,22687823,23076623,26731807,26743237,26881193,27504187
%N Primes p such that 28*p +- 3, 38*p +- 3 and 58*p +- 3 are all primes.
%t Select[Prime[Range[400000]], PrimeQ[28#+3]&&PrimeQ[28#-3]&&PrimeQ[38#+3]&&PrimeQ[38#-3]&&PrimeQ[58#+3]&&PrimeQ[58#-3]&]
%t Select[Prime[Range[1800000]],And@@PrimeQ[{28#+3,28#-3,38#+3,38#-3,58#+3,58#-3}]&] (* _Harvey P. Dale_, Apr 21 2014 *)
%o (Magma) [p: p in PrimesUpTo(100000000)| IsPrime(28*p+3) and IsPrime(28*p-3)and IsPrime(38*p-3) and IsPrime(38*p+3) and IsPrime(58*p-3) and IsPrime(58*p+3)]; // _Vincenzo Librandi_, Nov 13 2010
%K nonn
%O 1,1
%A _Zak Seidov_, May 05 2005