A098969 Where the records (A098968) occur in A046930 (if initial term is 0 not 1).

1, 2, 3, 4, 9, 16, 24, 30, 47, 189, 217, 327, 368, 739, 1184, 1663, 2225, 2226, 3385, 3386, 4059, 5949, 14357, 30803, 31545, 33609, 104071, 118505, 325854, 597313, 1319947, 2324142, 4140011, 4258997, 5911616, 8040880, 17567979, 23163300

Offset

0,2

Links

Table of n, a(n) for n=0..37.

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}]; a (* Robert G. Wilson v, Oct 27 2004 *)

Crossrefs

Sequence in context: A232055 A192818 A119721 * A235401 A354268 A281882

Adjacent sequences: A098966 A098967 A098968 * A098970 A098971 A098972

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