A126771 Primes p such that q-p = 60, where q is the next prime after p.

43331, 102701, 110359, 124367, 142993, 149629, 156157, 189067, 191353, 195599, 203057, 204173, 220063, 227303, 231719, 233777, 243709, 256219, 268343, 269791, 296377, 308153, 311473, 323273, 329803, 343831, 361577, 390893, 402631, 404713

Offset

1,1

Links

M. F. Hasler, Table of n, a(n) for n = 1..28439 (all terms < 10^8).

Index entries for primes, gaps between

Mathematica

a = {}; Do[If[Prime[x + 1] - Prime[x] == 60, AppendTo[a, Prime[x]]], {x, 1, 10000}]; a

Prog

(PARI) g=60; c=o=0; forprime(p=1, default(primelimit), (-o+o=p)==g&write("c:/temp/b126771.txt", c++" "p-g))

Crossrefs

Sequence in context: A256767 A258677 A184382 * A103875 A224623 A210331

Adjacent sequences: A126768 A126769 A126770 * A126772 A126773 A126774

Keyword

nonn

Author

Rémi Eismann, Feb 17 2007

Status

approved