|
|
A087696
|
|
Numbers n such that n + 5 and n - 5 are both prime.
|
|
8
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|