|
|
A204667
|
|
Primes p such that q-p = 56, where q is the next prime after p.
|
|
2
|
|
|
82073, 153191, 160253, 178697, 200513, 212297, 223151, 283211, 293543, 369581, 388403, 401417, 446657, 482123, 492911, 526997, 529751, 529871, 543713, 555767, 565667, 593711, 593783, 608213, 611333, 626261, 645257, 657131, 698183, 713681, 717341, 731057, 736187, 746597, 755903, 767957
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Transpose[Select[Partition[Prime[Range[80000]], 2, 1], Last[#] - First[#] == 56 &]][[1]] (* Vincenzo Librandi, Jan 16 2017 *)
|
|
PROG
|
(Magma) [p: p in PrimesUpTo(800000) | NextPrime(p)-p eq 56]; // Vincenzo Librandi, Jan 16 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|