A087683 Numbers n such that n + 10 and n - 10 are both prime.

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

Author

Zak Seidov, Sep 27 2003

Keywords

• easy
• nonn

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

Crossrefs

Cf. A014574, A087678-A087682, A087695-A087697, A088770.

Programs

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 *)