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 A198559 #9 Apr 23 2025 12:42:54
%S A198559 1,8,0,7,0,3,4,0,8,1,7,3,9,4,1,0,8,8,6,1,3,7,8,3,3,4,2,0,9,6,8,5,9,8,
%T A198559 0,6,4,8,6,7,0,2,9,9,7,9,5,6,3,2,1,2,1,6,1,5,1,0,9,6,3,5,6,8,0,2,7,3,
%U A198559 7,0,7,7,8,6,2,5,3,7,4,7,6,0,9,0,6,5,3,9,6,7,8,6,8,8,9,4,6,4,5
%N A198559 Decimal expansion of x>0 having 2*x^2-2x=3*sin(x).
%C A198559 See A198414 for a guide to related sequences. The Mathematica program includes a graph.
%H A198559 <a href="/index/Tra#transcendental">Index entries for transcendental numbers</a>.
%e A198559 1.80703408173941088613783342096859806486702997...
%t A198559 a = 2; b = -2; c = 3;
%t A198559 f[x_] := a*x^2 + b*x; g[x_] := c*Sin[x]
%t A198559 Plot[{f[x], g[x]}, {x, -.2, 2}]
%t A198559 r = x /. FindRoot[f[x] == g[x], {x, 1.8, 1.81}, WorkingPrecision -> 110]
%t A198559 RealDigits[r] (* A198559 *)
%Y A198559 Cf. A198414.
%K A198559 nonn,cons
%O A198559 1,2
%A A198559 _Clark Kimberling_, Oct 26 2011