OFFSET
1,1
LINKS
MAPLE
P:= select(isprime, [seq(i, i=3..1.1*10^6, 2)]):
L:= P[2..-1]-P[1..-2]:
R:= P[select(t -> L[t]=70, [$1..nops(L)])]; # Robert Israel, Oct 03 2017
PROG
(PARI) p=0; g=70; 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