OFFSET
1,1
LINKS
Daniel Starodubtsev, Table of n, a(n) for n = 1..10000
MATHEMATICA
f[n_]:=PrimeQ[n-9]&&PrimeQ[n+9]; lst={}; Do[If[f[n], AppendTo[lst, n]], {n, 6, 8!, 2}]; lst (* Vladimir Joseph Stephan Orlovsky, Oct 09 2009 *)
Select[Range[10, 700], AllTrue[#+{9, -9}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Nov 23 2019 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Sep 27 2003
STATUS
approved