OFFSET
1,2
LINKS
Zak Seidov, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[6! ], PrimeQ[30*#-1]&&PrimeQ[30*#+1]&]
Select[Range[300], AllTrue[30#+{1, -1}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Mar 21 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 08 2010
STATUS
approved