OFFSET
0,1
COMMENTS
LINKS
Stanislav Sykora, Table of n, a(n) for n = 0..2000
EXAMPLE
0.40756393054562184473966324339415208864062799286677510304874835...
MATHEMATICA
RealDigits[Im[z /. FindRoot[(1 + z)^I == z, {z, 0}, WorkingPrecision -> 120]]][[1]] (* Amiram Eldar, May 26 2023 *)
PROG
(PARI) \\ f(x) computes (x+(x+...)^i)^i, provided that it converges:
f(x)={my(z=1.0, zlast=0.0, eps=10.0^(1-default(realprecision))); while(abs(z-zlast)>eps, zlast=z; z=(x+z)^I); return(z)}
\\ To compute this constant, use:
z0 = f(1); imag(z0)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Stanislav Sykora, May 15 2016
STATUS
approved