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