login
Decimal expansion of smallest positive root of x = tan(tan(x)).
1

%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