%I #13 Sep 08 2022 08:45:29
%S 3,5,7,13,23,37,47,83,97,107,127,167,197,257,313,383,397,457,463,587,
%T 653,673,677,827,863,967,1013,1063,1093,1237,1567,1637,1783,1787,1847,
%U 1877,1913,2267,2273,2393,2633,2707,2777,2837,2927,2953,3023,3037,3257
%N Primes p such that 6p - 11 and 6p + 11 are also primes.
%e 7, 6*7 - 11 = 31, and 6*7 + 11 = 53 are all primes.
%t Select[Range[5000], PrimeQ[ # ] && PrimeQ[6# + 11] && PrimeQ[6# - 11] &]
%t Select[Prime[Range[500]],AllTrue[6#+{11,-11},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Mar 07 2015 *)
%o (Magma) [ p: p in PrimesUpTo(9000) | IsPrime(6*p-11) and IsPrime(6*p+11)] // _Vincenzo Librandi_, Jan 29 2011
%Y Subsequence of A089438.
%K nonn
%O 1,1
%A _Zerinvary Lajos_, Mar 31 2007
|