|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|