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 A099804 #18 Feb 16 2025 08:32:55
%S A099804 1,2,4,47,99,294,527,616,1152,1456,2638,2705,4105,31772,88683,90658,
%T A099804 95845,237245,1387437,5499408,12672729,110482114
%N A099804 Records for terms in the continued fraction of Soldner's constant.
%H A099804 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/SoldnersConstantContinuedFraction.html">Soldner's Constant Continued Fraction</a>
%t A099804 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, cf[[k]]]]; k++ ]; lst (* _Robert G. Wilson v_, Aug 05 2010 *)
%Y A099804 Cf. A070769 (decimal expansion of Soldner's constant).
%Y A099804 Cf. A099805, A229230.
%K A099804 nonn,hard,more
%O A099804 1,2
%A A099804 _Eric W. Weisstein_, Oct 26 2004
%E A099804 a(15) from _Robert G. Wilson v_, Aug 05 2010
%E A099804 More terms from _Eric W. Weisstein_, Sep 16 2013
%E A099804 a(21)-a(22) from _Eric W. Weisstein_, Oct 07 2013