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 A336002 #4 Jul 08 2020 08:08:16
%S A336002 6,7,6,7,7,0,6,9,5,3,2,4,3,0,1,4,4,8,5,5,7,4,4,7,5,2,6,4,2,5,7,7,1,3,
%T A336002 4,0,7,1,7,6,6,2,1,3,4,8,3,3,2,3,7,1,7,2,4,3,7,6,5,7,6,0,0,7,8,9,0,1,
%U A336002 6,1,2,0,6,8,2,0,9,7,9,7,5,7,5,4,5,1
%N A336002 Decimal expansion of the number u such that the arclength on y = tan(x) from (0,0) to (u, tan u) is 1.
%e A336002 u = 0.6767706953243014485574475264257713407176...
%t A336002 x = x /. FindRoot[(Sqrt[2] (ArcSin[Sin[x]/Sqrt[2]] +
%t A336002 ArcTanh[(Sqrt[2] Sin[x])/Sqrt[3 + Cos[2 x]]]) Cos[x] Sqrt[
%t A336002 1 + Sec[x]^2])/Sqrt[3 + Cos[2 x]] == 1, {x, 1},
%t A336002 WorkingPrecision -> 200]
%t A336002 RealDigits[x][[1]]
%Y A336002 Cf. A332633, A336003.
%K A336002 nonn,cons
%O A336002 0,1
%A A336002 _Clark Kimberling_, Jul 06 2020