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 A245260 #3 Jul 15 2014 08:11:04
%S A245260 7,8,2,1,8,8,2,9,4,2,8,0,1,9,9,9,0,1,2,2,0,2,9,7,0,7,5,9,2,6,7,4,4,7,
%T A245260 8,0,1,8,1,9,0,8,4,0,3,9,6,6,2,9,9,5,1,6,8,7,0,9,6,8,3,3,2,3,9,5,6,9,
%U A245260 1,6,9,9,4,1,2,4,6,7,4,6,7,1,9,5,3,8,2,3,9,2,9,0,6,6,7,3,2,5,1,3,6,6,7,5,8,5
%N A245260 Decimal expansion of the root of the equation r*log(r/(1-r))=1.
%F A245260 Equals 1/(1+LambertW(exp(-1))).
%e A245260 0.78218829428019990122029707592674478018190840396629951687...
%p A245260 evalf(solve(r*log(r/(1-r))=1), 100)
%t A245260 RealDigits[r/.FindRoot[r*Log[r/(1-r)]==1, {r, 3/4}, WorkingPrecision->250], 10, 200][[1]]
%t A245260 RealDigits[1/(1+LambertW[E^(-1)]), 10, 200][[1]]
%Y A245260 Cf. A072034, A220359, A237421, A245259.
%K A245260 nonn,cons
%O A245260 0,1
%A A245260 _Vaclav Kotesovec_, Jul 15 2014