A088373 Decimal expansion of a constant related to the postulated upper estimate for the complex Grothendieck constant.

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, 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, 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

Offset: 0

Author

Eric W. Weisstein, Sep 28 2003

Keywords

• nonn
• cons

Examples

			0.8125578588...
		

Links

• G. C. Greubel, Table of n, a(n) for n = 0..10000
• Eric Weisstein's World of Mathematics, Grothendieck's Constant

Crossrefs

Cf. A088367, A088374, A088375.

Programs

Mathematica

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 *)