|
|
A204803
|
|
Primes followed by a gap of 140 = nextprime(p)-p.
|
|
1
|
|
|
7621259, 8917523, 10270451, 14518211, 16525757, 16684331, 23008409, 23995859, 31698521, 32332253, 32379089, 33189557, 33734147, 34189487, 36067223, 36128819, 40454789, 42334769, 44639099, 47084399, 47710997, 48527939, 50339321, 54204053
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|