login
A087683
Numbers n such that n + 10 and n - 10 are both prime.
12
13, 21, 27, 33, 51, 57, 63, 69, 93, 99, 117, 141, 147, 183, 189, 201, 261, 267, 273, 303, 321, 327, 357, 363, 369, 399, 411, 429, 453, 477, 489, 513, 531, 567, 597, 603, 609, 651, 663, 729, 819, 849, 867, 873, 897, 957, 981, 987
OFFSET
1,1
COMMENTS
3 divides every term except the first. - T. D. Noe, May 14 2008
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 *)
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Sep 27 2003
STATUS
approved