|
%I #8 Mar 29 2015 18:38:47
%S 0,1,2,4,8,10,12,16,22,26,38,40,42,46,48,54,56,70,74,78,80,98,112,114,
%T 124,136,138,158,188,198,232,234,244,246,268,304,326,328,334,338,370
%N Record values for size of sea of composite numbers surrounding primes.
%C For a prime p let s(p) (essentially A046930) denote the number of composite numbers less than p and greater than max{1, previous prime} or greater than p and less than the next prime. Sequence gives record values of s(p).
%t a = {1, 2}; b = {0, 1}; d = 1; p = 2; q = 3; Do[ r = Prime[n]; c = r - p - 2; If[c > d, Print[{n + 1, c}]; d = c; AppendTo[a, n - 1]; AppendTo[b, c]]; p = q; q = r, {n, 3, 10^9}]; b (* _Robert G. Wilson v_, Oct 27 2004 *)
%Y Records in A046930 (if initial term is 0 not 1). Cf. A098969, A046931.
%K nonn
%O 0,3
%A _N. J. A. Sloane_, Oct 24 2004
%E More terms from _Robert G. Wilson v_ and _Olaf Voß_, Oct 27 2004
|
