%I #13 Sep 08 2022 08:45:17
%S 2,42187,420103,764993,785003,992623,1109327,1155373,1285793,1444763,
%T 1503913,2105833,2363807,2842597,3026203,3693863,5957047,6092903,
%U 6692383,7195907,7405627,9710783,11203733,11548633,12648127,12758387
%N Primes p such that 28*p +- 33, 38*p +- 33 and 58*p +- 33 are all primes.
%t Select[Prime[Range[400000]], PrimeQ[28#+33]&&PrimeQ[28#-33]&&PrimeQ[38#+33]&&PrimeQ[38#-33]&&PrimeQ[58#+33]&&PrimeQ[58#-33]&]
%o (Magma) [p: p in PrimesUpTo(100000000)| IsPrime(28*p+33) and IsPrime(28*p-33)and IsPrime(38*p-33) and IsPrime(38*p+33) and IsPrime(58*p-33) and IsPrime(58*p+33)]; // _Vincenzo Librandi_, Nov 13 2010
%K nonn
%O 1,1
%A _Zak Seidov_, May 05 2005
|