|
%I #14 Sep 08 2022 08:45:29
%S 2,7,13,47,113,163,167,197,233,307,317,373,547,617,797,827,863,937,
%T 1087,1213,1223,1367,1483,1567,1597,1783,1787,2003,2063,2087,2137,
%U 2203,2333,2393,2437,2543,2617,2693,2777,2903,3037,3067,3163,3347,3463,3583,3607
%N Primes p such that 6p - 31 and 6p + 31 are also primes.
%e 7, 6*7 - 31 = 11, and 6*7 + 31 = 73 are all primes.
%t Select[Range[8000], PrimeQ[ # ] && PrimeQ[6# + 31] && PrimeQ[6# - 31] &]
%t Select[Prime[Range[600]],And@@PrimeQ[6#+{31,-31}]&] (* _Harvey P. Dale_, Mar 28 2012 *)
%o (Magma) [ p: p in PrimesUpTo(9000) | IsPrime(6*p-31) and IsPrime(6*p+31)] // _Vincenzo Librandi_, Jan 29 2011
%K nonn
%O 1,1
%A _Zerinvary Lajos_, Mar 31 2007
|
