OFFSET
1,1
COMMENTS
3 divides every term except the first. - T. D. Noe, May 14 2008
LINKS
T. D. Noe, Table of n, a(n) for n=1..1000
MATHEMATICA
f[n_]:=PrimeQ[n-10]&&PrimeQ[n+10]; lst={}; Do[If[f[n], AppendTo[lst, n]], {n, 9, 8!, 2}]; lst (* Vladimir Joseph Stephan Orlovsky, Oct 09 2009 *)
Select[Range[10, 1000], AllTrue[#+{10, -10}, PrimeQ]&] (* Harvey P. Dale, Jul 29 2024 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Sep 27 2003
STATUS
approved