%I #10 Jan 27 2019 06:20:37
%S 3,6,6,3,2,0,1,5,0,3,0,5,2,8,3,0,9,6,4,0,8,7,2,3,6,5,6,3,7,8,1,1,7,1,
%T 1,9,4,0,1,1,8,2,6,6,0,7,2,1,0,9,9,4,5,9,5,4,9,1,8,2,3,1,6,0,1,8,4,0,
%U 5,2,1,3,5,4,9,0,0,9,8,9,2,5,8,2,5,7,6,7,1,9,5,2,1,9,5,9,0,0,0,1,6,8,6,7,4,6
%N Decimal expansion of the root of the equation (1-2*r)^(4*r-1) * (1-r)^(1-2*r) = r^(2*r).
%e 0.3663201503052830964087236563781171194011826607210994595491823160184...
%t 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]]
%Y Cf. A220359, A228833, A237421, A245259, A323768, A323777, A323778.
%K nonn,cons
%O 0,1
%A _Vaclav Kotesovec_, Jan 27 2019