|
%I #7 Aug 15 2015 09:38:49
%S 1,7,2,4,9,9,1,1,2,6,0,3,4,5,0,0,0,8,6,8,7,3,4,4,1,6,4,9,4,6,9,1,4,2,
%T 7,1,9,9,3,0,7,3,2,4,6,2,8,3,7,0,3,9,3,8,6,1,2,7,9,6,2,3,0,7,0,2,0,2,
%U 5,5,9,6,3,6,9,6,2,1,5,4,6,0,7,4,4,9,1,5,9,9,7,1,5,8,1,2,8,8,0,0,7,8,5,9,3
%N Decimal expansion of integral of pi_q from 0 to 1.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/q-Pi.html">q-Pi</a>
%e 1.7249911260345000868...
%t pi[q_] := (1 - q^2)/4*EllipticTheta[2, 0, Sqrt[q]]^2; RealDigits[ NIntegrate[pi[q], {q, 0, 1}, WorkingPrecision -> 105], 10, 105] // First (* _Jean-François Alcover_, Feb 07 2013 *)
%K nonn,cons
%O 1,2
%A _Eric W. Weisstein_, Sep 23 2008
|
