|
%I #18 Aug 17 2018 09:25:20
%S 5,0,5,4,6,2,0,1,9,7,1,7,3,2,6,0,0,6,0,5,2,0,0,4,0,5,3,2,2,7,1,4,0,2,
%T 5,9,9,8,5,1,2,9,0,1,4,8,1,7,4,2,0,8,9,2,1,8,8,9,9,3,4,8,7,8,8,6,0,2,
%U 8,7,7,3,4,5,1,1,7,3,8,1,6,8,0,0,5,3,7,2,4,7,0,6,9,8,9,6,0,3,7,9,7,5
%N Decimal expansion of (4*(18+12*sqrt(2)-10*sqrt(3)-7*sqrt(6))*EllipticK((2-sqrt(3))^2*(-sqrt(2)+sqrt(3))^2)^2)/Pi^2.
%C Watson's third triple integral.
%H G. C. Greubel, <a href="/A091672/b091672.txt">Table of n, a(n) for n = 0..10000</a>
%H D. H. Bailey, J. M. Borwein, V. Kapoor and E. Weisstein, <a href="http://eprints.cecm.sfu.ca/archive/00000270/">Ten Problems in Experimental Mathematics</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/WatsonsTripleIntegrals.html">Watson's Triple Integrals</a>
%e 0.505462019717326006052004053227140259985129014817420892188993487886...
%p evalf((4*(18+12*sqrt(2)-10*sqrt(3)-7*sqrt(6)))*EllipticK((2-sqrt(3))*(-sqrt(2)+sqrt(3)))^2/Pi^2, 120); # _Vaclav Kotesovec_, Apr 22 2015
%t RealDigits[ N[ (4*(18 + 12*Sqrt[2] - 10*Sqrt[3] - 7*Sqrt[6])*EllipticK[(2 - Sqrt[3])^2*(-Sqrt[2] + Sqrt[3])^2]^2)/Pi^2, 102]][[1]] (* _Jean-François Alcover_, Nov 12 2012, after _Eric W. Weisstein_ *)
%Y Cf. A091670, A091671.
%K nonn,cons
%O 0,1
%A _Eric W. Weisstein_, Jan 27 2004
|
