A087696 Numbers n such that n + 5 and n - 5 are both prime.

8, 12, 18, 24, 36, 42, 48, 66, 78, 84, 102, 108, 132, 144, 162, 168, 186, 228, 234, 246, 276, 288, 312, 342, 354, 378, 384, 414, 426, 438, 444, 462, 504, 552, 582, 612, 636, 648, 678, 696, 714, 738, 756, 792, 816, 834, 858, 882, 924, 942, 972

Offset

1,1

Links

Daniel Starodubtsev, Table of n, a(n) for n = 1..10000

Mathematica

Select[Range[5, 1000], AllTrue[#+{5, -5}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Dec 08 2014 *)

Prog

(PARI) isok(n) = isprime(n-5) && isprime(n+5); \\ Michel Marcus, Sep 02 2019

Crossrefs

Cf. A014574, A087678-A087683, A087695-A087697, A088765.

Sequence in context: A280968 A157940 A308494 * A293529 A028393 A066681

Adjacent sequences: A087693 A087694 A087695 * A087697 A087698 A087699

Keyword

easy,nonn

Author

Zak Seidov, Sep 27 2003

Status

approved