login
A204792
Primes p followed by a gap of 70 = nextprime(p) - p.
4
173359, 175141, 186481, 203461, 218287, 253159, 302329, 399283, 449473, 458239, 459523, 517747, 524521, 546391, 651517, 675643, 677239, 703561, 710119, 724651, 762409, 914047, 1015207, 1023871, 1037143, 1072231, 1072543, 1074763, 1149061, 1189483, 1195291
OFFSET
1,1
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
Sequence in context: A233483 A251117 A076814 * A281621 A147314 A209813
KEYWORD
nonn
AUTHOR
M. F. Hasler, Jan 19 2012
STATUS
approved