OFFSET
1,1
COMMENTS
Many terms are of the form 5 + n + n^2 or 5 + 2*n^2: A054794.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
f[n_]:=PrimeQ[n-6]&&PrimeQ[n+6]; lst={}; Do[If[f[n], AppendTo[lst, n]], {n, 2, 7!, 1}]; lst (* Vladimir Joseph Stephan Orlovsky, Aug 12 2009 *)
Select[Range[2, 700], AllTrue[#+{6, -6}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jan 26 2019 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Sep 27 2003
STATUS
approved