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

Author

Rémi Eismann, Feb 17 2007

Keywords

• nonn

Links

• M. F. Hasler, Table of n, a(n) for n = 1..28439 (all terms < 10^8).
• Index entries for primes, gaps between

Programs

Mathematica

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

PARI

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