OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
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
KEYWORD
nonn
AUTHOR
Zerinvary Lajos, Mar 31 2007
EXTENSIONS
Name corrected by T. D. Noe, Jan 29 2011
STATUS
approved