A087678 Numbers n such that n + 9 and n - 9 are both prime.

14, 20, 22, 28, 32, 38, 50, 52, 62, 70, 80, 88, 92, 98, 118, 122, 140, 148, 158, 172, 182, 188, 190, 202, 220, 232, 242, 248, 260, 272, 302, 322, 340, 358, 388, 392, 410, 430, 440, 448, 452, 458, 470, 500, 512, 532, 578, 608, 610, 622, 650, 652, 668, 682, 692

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

Cf. A014574, A087679-A087683, A087695-A087697, A088769.

Sequence in context: A255346 A074851 A193672 * A144585 A186193 A285426

Adjacent sequences: A087675 A087676 A087677 * A087679 A087680 A087681

Keyword

easy,nonn

Author

Zak Seidov, Sep 27 2003

Status

approved