|
|
A290488
|
|
Lower ends of record gaps between numbers that are either prime or twice a prime.
|
|
5
|
|
|
2, 7, 47, 181, 467, 526, 1069, 1262, 1327, 2477, 3274, 5119, 12854, 20809, 28229, 31397, 338038, 520462, 546391, 1050631, 1761206, 1964987, 3466943, 6084986, 27348829, 27915754, 111108769, 113652443, 230126378, 231902267, 327764081, 438981007, 581755318, 1837981547, 2489382697
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The gap between 31397 and 31454 is due to the record prime gap between 31397 and 31469 being almost exactly twice the record prime gap between 15683 and 15727.
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
a(3) = 47 because the next number that is a prime or twice a prime after 47 is 53, and that is a record gap of size 6.
|
|
MATHEMATICA
|
nxt[n_] := Block[{k = n +1}, While[ !PrimeQ[ k] && ! PrimeQ[ k/2], k++]; k]; p = 2; q = 3; mx = 0; lst = {}; While[p < 2500000000, If[q > mx + p, mx = q - p; AppendTo[ lst, p]]; p = q; q = nxt@ q]; lst (* Robert G. Wilson v, Aug 03 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|