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 A197329 #12 Apr 10 2021 11:32:41
%S A197329 1,0,8,6,5,8,4,0,6,5,7,6,5,1,8,2,7,1,7,4,3,1,7,1,3,5,2,1,4,3,0,0,5,1,
%T A197329 3,8,4,6,2,2,5,1,6,5,6,2,5,1,7,2,5,3,5,3,0,2,2,2,5,1,8,0,7,2,0,9,2,0,
%U A197329 9,4,0,9,2,5,2,2,9,7,0,9,9,1,2,0,5,0,3,6,2,2,4,4,0,6,7,4,7,8,0
%N A197329 Decimal expansion of least x > 0 having sin(2*x) = sin(Pi*x/3)^2.
%C A197329 The Mathematica program includes a graph. See A197133 for a guide to least x > 0 satisfying sin(b*x) = sin(c*x)^2 for selected b and c.
%e A197329 x=1.0865840657651827174317135214300513846...
%t A197329 b = 2; c = Pi/3; f[x_] := Sin[x]
%t A197329 t = x /. FindRoot[f[b*x] == f[c*x]^2, {x, 1, 1.5}, WorkingPrecision -> 200]
%t A197329 RealDigits[t] (* A197329 *)
%t A197329 Plot[{f[b*x], f[c*x]^2}, {x, 0, 1.5}]
%Y A197329 Cf. A197133.
%K A197329 nonn,cons
%O A197329 1,3
%A A197329 _Clark Kimberling_, Oct 13 2011