OFFSET
1,2
LINKS
Eric Weisstein's World of Mathematics, q-Pi
EXAMPLE
1.7249911260345000868...
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Eric W. Weisstein, Sep 23 2008
STATUS
approved