

A126771


Primes p such that qp = 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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS



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++" "pg))


CROSSREFS



KEYWORD

nonn


AUTHOR



STATUS

approved



