%I #7 Mar 29 2015 18:39:17
%S 1,2,3,4,9,16,24,30,47,189,217,327,368,739,1184,1663,2225,2226,3385,
%T 3386,4059,5949,14357,30803,31545,33609,104071,118505,325854,597313,
%U 1319947,2324142,4140011,4258997,5911616,8040880,17567979,23163300
%N Where the records (A098968) occur in A046930 (if initial term is 0 not 1).
%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}]; a (* _Robert G. Wilson v_, Oct 27 2004 *)
%K nonn
%O 0,2
%A _N. J. A. Sloane_, Oct 24 2004
%E More terms from _Robert G. Wilson v_ and _Olaf Voß_, Oct 27 2004
|