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 A362220 #8 May 09 2023 00:30:32 %S A362220 1,3,2,9,7,3,1,2,2,0,6,7,8,9,4,5,5,1,5,7,3,7,1,4,6,0,6,5,5,8,4,6,4,8, %T A362220 5,8,9,6,0,4,8,2,9,8,5,7,4,9,0,3,8,0,4,3,6,7,5,1,2,4,6,4,5,7,9,7,9,9, %U A362220 7,8,0,4,7,0,6,0,1,4,3,2,0,4,5,8,3,8,2,3,7,1,3,6,9,5,1,6,2,4,8,8,4,3,6 %N A362220 Decimal expansion of smallest positive root of x = tan(tan(x)). %F A362220 Equals tan(A362219). %F A362220 Equals arctan(A362219). %e A362220 1.329731220678945515737146065584648589604829857490380436751246457979... %t A362220 RealDigits[FindRoot[Tan[Tan[x]] == x, {x, 1.3}, WorkingPrecision -> 105][[1, 2]]][[1]] %o A362220 (PARI) solve(x=1.32, 1.35, tan(tan(x)) - x) \\ _Michel Marcus_, Apr 12 2023 %Y A362220 Cf. A115365, A362219. %K A362220 cons,nonn %O A362220 1,2 %A A362220 _Wolfe Padawer_, Apr 11 2023