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

Author

Zak Seidov, Sep 27 2003

Keywords

• easy
• nonn

Links

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

Crossrefs

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

Programs

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

PARI

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