OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
5*12 = 60 - 1 = 59 (prime), 5*12 = 60 + 1 = 61 (prime).
MATHEMATICA
a=12; Select[Prime[Range[250]], PrimeQ[a*#-1]&&PrimeQ[a*#+1] &]
Select[Prime[Range[700]], AllTrue[12#+{1, -1}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jan 11 2017 *)
PROG
(Magma) [n: n in [0..1000] |IsPrime(n) and IsPrime(12*n-1)and IsPrime(12*n+1)] // Vincenzo Librandi, Nov 24 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 05 2008
EXTENSIONS
More terms from Vincenzo Librandi, Mar 25 2010
STATUS
approved