This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A072098 #7 Sep 03 2024 16:12:34
%S A072098 1,3,7,12,16,21,28,62,97,118,122,135,164,218,333,346,387,443,485,521,
%T A072098 630,819
%N A072098 Numbers k such that the difference between 10^k and the next prime > 10^k is a record high.
%e A072098 For a(22)=819 the difference is 10443 and no other n <= 827 exceeds that difference.
%t A072098 NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; d = 0; k = 1; Do[ While[f = NextPrim[10^k] - 10^k; d >= f, k++ ]; d = f; Print[k], {n, 1, 50}]
%Y A072098 Cf. A038805, A033873.
%K A072098 hard,nonn,more
%O A072098 1,2
%A A072098 _Robert G. Wilson v_, Jun 18 2002