OFFSET
0,1
COMMENTS
This constant is an analog of A084256 where primes are replaced with squares.
LINKS
Eric Weisstein's MathWorld, Jacobi Theta Functions
FORMULA
Solution to theta_3(0,x) = 3, where theta_3 is the 3rd elliptic theta function.
EXAMPLE
0.705346681379806989636379706393941505260078161512292870517426781...
MATHEMATICA
FindRoot[Sum[x^n^2, {n, 1, 100}] == 1, {x, 7/10}, WorkingPrecision -> 100][[1, 2]] // RealDigits // First
(* or *)
FindRoot[EllipticTheta[3, 0, x] == 3, {x, 7/10}, WorkingPrecision -> 100][[1, 2]] // RealDigits // First
PROG
(PARI) solve(x=.7, .8, suminf(y=1, x^y^2)-1) \\ Charles R Greathouse IV, Apr 25 2016
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Jean-François Alcover, Apr 18 2016
STATUS
approved