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 A196501 #7 Aug 09 2021 14:01:17
%S A196501 2,7,4,3,7,0,7,2,6,9,9,9,2,2,6,9,3,8,2,5,6,1,1,2,2,0,8,1,1,2,0,3,0,7,
%T A196501 1,3,7,2,0,4,2,7,9,6,7,5,5,5,8,2,8,9,3,1,4,1,6,6,3,9,0,5,7,1,3,4,9,9,
%U A196501 2,7,6,7,3,1,1,1,9,1,7,6,8,9,9,0,1,2,6,0,8,6,7,8,7,3,2,6,1,4,4,8
%N A196501 Decimal expansion of least positive x satisfying x+cot(x)=1/x.
%C A196501 See A196500 for related inequalities.
%e A196501 x=2.7437072699922693825611220811203071372042...
%t A196501 Plot[{Cot[1/x], x, 1/x + Cot[1/x]}, {x, 0.34, 1.0}]
%t A196501 t = x /.FindRoot[1/x + Cot[1/x] == x, {x, .3, .4}, WorkingPrecision -> 100]
%t A196501 RealDigits[t] (* A196500 *)
%t A196501 1/t
%t A196501 RealDigits[%] (* A196501 *)
%Y A196501 Cf. A196500, A196502, A196504.
%K A196501 nonn,cons
%O A196501 1,1
%A A196501 _Clark Kimberling_, Oct 03 2011