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 A199457 #12 Feb 08 2025 09:40:31
%S A199457 2,3,3,3,8,5,4,8,5,0,2,8,5,2,9,2,1,2,8,3,3,0,3,7,1,0,9,9,3,1,7,4,8,0,
%T A199457 5,3,9,2,4,4,2,0,9,2,5,7,3,8,2,2,0,6,5,2,3,3,3,0,4,2,7,0,8,2,5,6,1,6,
%U A199457 1,8,9,6,9,1,7,1,8,1,0,8,0,6,6,3,5,9,9,8,3,8,0,0,8,5,0,5,9,4,9
%N A199457 Decimal expansion of greatest x satisfying x^2-2*x*sin(x)=-3*cos(x).
%C A199457 See A199429 for a guide to related sequences. The Mathematica program includes a graph.
%H A199457 <a href="/index/Tra#transcendental">Index entries for transcendental numbers</a>.
%e A199457 2.333854850285292128330371099317480539244209...
%t A199457 a = 1; b = -2; c = -3;
%t A199457 f[x_] := a*x^2 + b*x*Sin[x]; g[x_] := c*Cos[x]
%t A199457 Plot[{f[x], g[x]}, {x, -Pi, Pi}, {AxesOrigin -> {0, 0}}]
%t A199457 r = x /. FindRoot[f[x] == g[x], {x, 2.33, 2.34}, WorkingPrecision -> 110]
%t A199457 RealDigits[r] (* A199457 greatest root *)
%Y A199457 Cf. A199429.
%K A199457 nonn,cons
%O A199457 1,1
%A A199457 _Clark Kimberling_, Nov 06 2011