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 A197822 #7 Sep 25 2015 16:38:10 %S A197822 1,7,8,7,2,0,6,7,0,3,1,8,0,7,5,0,6,1,0,1,9,8,0,3,5,2,2,0,9,8,9,1,5,7, %T A197822 2,7,6,1,2,2,5,2,0,0,1,6,0,2,5,4,5,0,7,0,0,1,2,1,2,5,8,3,0,9,9,2,5,4, %U A197822 9,3,6,0,5,7,6,1,2,0,3,8,3,0,4,1,9,1,8,6,2,2,2,2,2,7,3,8,5,6,4 %N A197822 Decimal expansion of the maximum of (cos(x))^2+(sin(Pi*x))^2. %C A197822 For a discussion and guide to related sequences, see A197739. %e A197822 x=1.78720670318075061019803522098915727612... %t A197822 (See the program at A197821.) %t A197822 RealDigits[FindMaximum[(Cos[x])^2+(Sin[Pi*x])^2,x,WorkingPrecision->120][[1]]][[1]] (* _Harvey P. Dale_, Sep 25 2015 *) %Y A197822 Cf. A197739, A197821. %K A197822 nonn,cons %O A197822 1,2 %A A197822 _Clark Kimberling_, Oct 19 2011