OFFSET
0,3
COMMENTS
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).
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Oct 24 2004
EXTENSIONS
More terms from Robert G. Wilson v and Olaf Voß, Oct 27 2004
STATUS
approved