login
A127464
Primes p such that 12p - 11 and 12p + 11 are also primes.
1
29, 101, 109, 151, 199, 211, 239, 251, 389, 491, 571, 631, 641, 809, 811, 1009, 1021, 1039, 1061, 1201, 1229, 1429, 1459, 1481, 1511, 1621, 1721, 2029, 2111, 2131, 2789, 2801, 2909, 2939, 2999, 3121, 3191, 3259, 3461, 3529, 3559, 3571, 3709, 3821, 4091
OFFSET
1,1
LINKS
EXAMPLE
101, 12*101 - 11 = 1201, and 12*101 + 11 = 1223 are all primes.
MATHEMATICA
Select[Range[5000], PrimeQ[ # ] && PrimeQ[12# + 11] && PrimeQ[12# - 11] &]
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 *)
PROG
(Magma) [p: p in PrimesUpTo(5000)|IsPrime(12*p-11) and IsPrime(12*p+11)] // Vincenzo Librandi, Jan 30 2011
CROSSREFS
Subsequence of A157974.
Sequence in context: A240954 A087641 A161665 * A318959 A142109 A069472
KEYWORD
nonn
AUTHOR
Zerinvary Lajos, Mar 31 2007
EXTENSIONS
Name corrected by T. D. Noe, Jan 29 2011
STATUS
approved