OFFSET
1,1
MATHEMATICA
Transpose[Select[Partition[Prime[Range[3300000]], 2, 1], #[[2]]-#[[1]] == 140&]][[1]] (* Harvey P. Dale, Jan 14 2016 *)
PROG
(PARI) p=0; g=140; for(c=1, 100, while(g+p!=p=nextprime(p+1), ); print1(", "p-g)) \\
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Jan 19 2012
STATUS
approved