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