OFFSET
0,1
EXAMPLE
0.3663201503052830964087236563781171194011826607210994595491823160184...
MATHEMATICA
RealDigits[r/.FindRoot[(1-2*r)^(4*r-1) * (1-r)^(1-2*r) == r^(2*r), {r, 1/3}, WorkingPrecision->250], 10, 200][[1]]
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Vaclav Kotesovec, Jan 27 2019
STATUS
approved