login
Lower ends of record gaps between numbers that are either prime or twice a prime.
5

%I #29 Aug 08 2017 16:48:10

%S 2,7,47,181,467,526,1069,1262,1327,2477,3274,5119,12854,20809,28229,

%T 31397,338038,520462,546391,1050631,1761206,1964987,3466943,6084986,

%U 27348829,27915754,111108769,113652443,230126378,231902267,327764081,438981007,581755318,1837981547,2489382697

%N Lower ends of record gaps between numbers that are either prime or twice a prime.

%C 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.

%H Robert G. Wilson v, <a href="/A290488/b290488.txt">Table of n, a(n) for n = 1..37</a>

%F a(n) = A290489(n) - A290541(n).

%e 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.

%t 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 *)

%Y Cf. A001751, A290489, A290541.

%K nonn

%O 1,1

%A _Bobby Jacobs_, Aug 03 2017

%E a(11) onward from _Robert G. Wilson v_, Aug 03 2017