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 A197732 #10 Oct 01 2022 00:56:08 %S A197732 8,6,2,6,9,7,4,3,8,3,0,1,5,8,7,0,2,8,8,5,3,5,8,7,6,7,4,2,9,1,3,5,0,6, %T A197732 6,4,7,9,5,9,0,6,4,7,1,1,9,4,3,4,6,3,0,5,2,1,2,6,1,6,2,8,4,1,9,9,5,2, %U A197732 5,8,2,3,3,5,5,4,4,6,2,1,2,1,4,6,4,4,1,4,1,4,8,0,4,3,7,1,8,9,9 %N A197732 Decimal expansion of 2*Pi/(1 + 2*Pi). %C A197732 Least x > 0 such that sin(b*x) = cos(c*x) (and also sin(c*x) = cos(b*x)), where b=1/4 and c=Pi/2; see the Mathematica program for a graph and A197682 for a discussion and guide to related sequences. %H A197732 <a href="/index/Tra#transcendental">Index entries for transcendental numbers</a> %e A197732 0.86269743830158702885358767429135066479590... %t A197732 b = 1/4; c = Pi/2; %t A197732 t = x /. FindRoot[Sin[b*x] == Cos[c*x], {x, .86, .87}] %t A197732 N[Pi/(2*b + 2*c), 110] %t A197732 RealDigits[%] (* A197732 *) %t A197732 Simplify[Pi/(2*b + 2*c)] %t A197732 Plot[{Sin[b*x], Cos[c*x]}, {x, 0, Pi/2}] %Y A197732 Cf. A197682. %K A197732 nonn,cons %O A197732 0,1 %A A197732 _Clark Kimberling_, Oct 17 2011