OFFSET
1,1
LINKS
M. F. Hasler, Table of n, a(n) for n = 1..28439 (all terms < 10^8).
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
KEYWORD
nonn
AUTHOR
RĂ©mi Eismann, Feb 17 2007
STATUS
approved