%I #10 Aug 06 2024 06:58:12
%S 1,9,0,8,1,4,5,6,2,6,8,1,2,7,8,5,6,7,2,4,1,5,7,5,2,6,9,4,8,8,8,4,3,9,
%T 6,0,8,2,8,1,0,5,7,8,6,5,5,7,2,2,3,9,8,1,8,7,9,5,0,5,1,7,8,7,9,8,4,0,
%U 8,7,1,9,1,5,3,4,6,2,8,6,4,9,2,0,7,3,3,1,9,1,7,4,0,4,3,1,1,2,0,3
%N Decimal expansion of C_3, a constant related to sharp inequalities for the product of 3 polynomials, which was introduced by David Boyd.
%D S. R. Finch, Mathematical Constants, Cambridge, 2003, Section 3.10 p. 233.
%H David W. Boyd, <a href="https://citeseerx.ist.psu.edu/pdf/522373ad9d2ff1a77a4054e6c28d8da3df682e5d">Sharp inequalities for the product of polynomials</a>
%H Eric Weisstein's MathWorld, <a href="http://mathworld.wolfram.com/ClausensIntegral.html">Clausen's Integral</a>
%F exp(3/Pi*Clausen2(Pi - Pi/3)), where Clausen2 is Clausen's Integral.
%e 1.908145626812785672415752694888439608281...
%t Clausen2[x_] := Im[PolyLog[2, Exp[x*I]]]; c[m_] := Exp[m/Pi*Clausen2[Pi - Pi/m]]; RealDigits[c[3], 10, 100] // First
%o (PARI) exp(3*imag(polylog(2,exp(2*I*Pi/3)))/Pi) \\ _Charles R Greathouse IV_, Jul 14 2014
%Y Cf. A130834 (C_2), A242712 (C_4), A242713 (C_5), A242714 (C_6).
%K nonn,cons
%O 1,2
%A _Jean-François Alcover_, May 21 2014