This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A220359 #24 Nov 25 2017 04:27:28
%S A220359 7,0,3,5,0,6,0,7,6,4,3,0,6,6,2,4,3,0,9,6,9,2,9,6,6,1,6,2,1,7,7,7,0,9,
%T A220359 5,2,1,3,2,4,6,8,4,5,7,4,2,4,2,8,1,5,5,5,5,8,6,2,1,5,7,1,6,5,1,0,5,1,
%U A220359 2,3,0,6,0,0,3,9,9,4,0,1,4,4,9,5,2,5,4,5,6,8,0,4,6,0,5,7,3,1,5,1,9,8,5,4,4,8,3
%N A220359 Decimal expansion of the root of the equation (1-r)^(2*r-1) = r^(2*r).
%C A220359 Constant is associated with A167008, A219206 and A219207.
%e A220359 0.70350607643066243...
%p A220359 Digits:= 140:
%p A220359 v:= convert(fsolve( (1-r)^(2*r-1) = r^(2*r), r=1/2), string):
%p A220359 seq(parse(v[n+2]), n=0..120); # _Alois P. Heinz_, Dec 12 2012
%t A220359 RealDigits[r/.FindRoot[(1-r)^(2*r-1)==r^(2*r),{r,1/2}, WorkingPrecision->250], 10, 200][[1]]
%o A220359 (PARI) solve(x=.7,1,(1-x)^(2*x-1) - x^(2*x)) \\ _Charles R Greathouse IV_, Apr 25 2016
%Y A220359 Cf. A167008, A219206, A219207, A228808, A184731, A206154, A206156, A206158, A237421, A295611.
%K A220359 nonn,cons
%O A220359 0,1
%A A220359 _Vaclav Kotesovec_, Dec 12 2012