[go: up one dir, main page]

login
A126771
Primes p such that q-p = 60, where q is the next prime after p.
8
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
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
KEYWORD
nonn
AUTHOR
RĂ©mi Eismann, Feb 17 2007
STATUS
approved