%I #20 Sep 08 2022 08:45:29
%S 29,101,109,151,199,211,239,251,389,491,571,631,641,809,811,1009,1021,
%T 1039,1061,1201,1229,1429,1459,1481,1511,1621,1721,2029,2111,2131,
%U 2789,2801,2909,2939,2999,3121,3191,3259,3461,3529,3559,3571,3709,3821,4091
%N Primes p such that 12p - 11 and 12p + 11 are also primes.
%H Harvey P. Dale, <a href="/A127464/b127464.txt">Table of n, a(n) for n = 1..1000</a>
%e 101, 12*101 - 11 = 1201, and 12*101 + 11 = 1223 are all primes.
%t Select[Range[5000], PrimeQ[ # ] && PrimeQ[12# + 11] && PrimeQ[12# - 11] &]
%t Select[Prime[Range[600]],AllTrue[12#+{11,-11},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jan 12 2016 *)
%o (Magma) [p: p in PrimesUpTo(5000)|IsPrime(12*p-11) and IsPrime(12*p+11)] // _Vincenzo Librandi_, Jan 30 2011
%Y Subsequence of A157974.
%K nonn
%O 1,1
%A _Zerinvary Lajos_, Mar 31 2007
%E Name corrected by _T. D. Noe_, Jan 29 2011
|