A127443 Primes p such that 6p - 11 and 6p + 11 are also primes.

3, 5, 7, 13, 23, 37, 47, 83, 97, 107, 127, 167, 197, 257, 313, 383, 397, 457, 463, 587, 653, 673, 677, 827, 863, 967, 1013, 1063, 1093, 1237, 1567, 1637, 1783, 1787, 1847, 1877, 1913, 2267, 2273, 2393, 2633, 2707, 2777, 2837, 2927, 2953, 3023, 3037, 3257

Offset: 1

Author

Zerinvary Lajos, Mar 31 2007

Keywords

• nonn

Examples

			7, 6*7 - 11 = 31, and 6*7 + 11 = 53 are all primes.
		

Crossrefs

Subsequence of A089438.

Programs

Magma

[ p: p in PrimesUpTo(9000) | IsPrime(6*p-11) and IsPrime(6*p+11)] // Vincenzo Librandi, Jan 29 2011

Mathematica

Select[Range[5000], PrimeQ[ # ] && PrimeQ[6# + 11] && PrimeQ[6# - 11] &]
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 *)