OFFSET
1,1
EXAMPLE
7, 6*7 - 11 = 31, and 6*7 + 11 = 53 are all primes.
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 *)
PROG
(Magma) [ p: p in PrimesUpTo(9000) | IsPrime(6*p-11) and IsPrime(6*p+11)] // Vincenzo Librandi, Jan 29 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Zerinvary Lajos, Mar 31 2007
STATUS
approved