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 A088373 #15 Feb 16 2025 08:32:51 %S A088373 8,1,2,5,5,7,8,5,8,8,2,1,4,7,2,4,4,2,3,1,8,5,9,3,4,9,4,6,1,2,4,7,8,0, %T A088373 5,2,5,4,9,2,9,5,2,9,8,8,0,4,9,7,1,8,0,8,7,1,0,6,6,7,2,5,6,8,5,1,6,7, %U A088373 2,0,9,8,3,1,6,2,1,7,5,7,3,6,8,1,2,0,1,3,6,0,8,5,5,7,0,1,1,2,1,3,7,8 %N A088373 Decimal expansion of a constant related to the postulated upper estimate for the complex Grothendieck constant. %H A088373 G. C. Greubel, <a href="/A088373/b088373.txt">Table of n, a(n) for n = 0..10000</a> %H A088373 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/GrothendiecksConstant.html">Grothendieck's Constant</a> %e A088373 0.8125578588... %t A088373 psi[x_] := (Sqrt[1 - x^2]*(EllipticE[-x^2/(1 - x^2)] - EllipticK[-x^2/(1 - x^2)]))/x; x0 = x /. FindRoot[psi[x] == 1/8*Pi*(x + 1), {x, 1/2}, WorkingPrecision -> 110]; RealDigits[x0, 10, 102] // First (* _Jean-François Alcover_, Feb 06 2013 *) %Y A088373 Cf. A088367, A088374, A088375. %K A088373 nonn,cons %O A088373 0,1 %A A088373 _Eric W. Weisstein_, Sep 28 2003