login
A204667
Primes p such that q-p = 56, where q is the next prime after p.
3
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
OFFSET
1,1
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
Sequence in context: A253957 A253964 A253760 * A288472 A162184 A298430
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jan 17 2012
STATUS
approved