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 A099805 #21 Feb 16 2025 08:32:55
%S A099805 1,2,3,12,70,126,202,585,1592,2436,2544,4814,9603,12148,122447
%N A099805 Positions of records for terms in the continued fraction of Soldner's constant (A070769).
%C A099805 See A229230 for another version.
%H A099805 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/SoldnersConstant.html">Soldner's Constant</a>
%t A099805 f = FindRoot[LogIntegral@x, {x, 3/2}, WorkingPrecision -> 2^17][[1, 2]]; cf = ContinuedFraction@f; k = 1; mx = 0; lst = {}; len = Length@ cf; While[k < len, If[ cf[[k]] > mx, mx = cf[[k]]; AppendTo[lst, k]]; k++ ]; lst (* _Robert G. Wilson v_, Aug 05 2010 *)
%Y A099805 Cf. A229230 (= a(n) - 1), A070769, A099804.
%K A099805 nonn,hard,more
%O A099805 1,2
%A A099805 _Eric W. Weisstein_, Oct 26 2004
%E A099805 a(15) from _Robert G. Wilson v_, Aug 05 2010
%E A099805 Edited by _N. J. A. Sloane_, Jun 19 2021 (removed mention of a(0) from definition).