|
%I #17 May 31 2021 03:25:24
%S 1,3,9,4,2,5,3,2,1,9,8,4,4,8,8,8,3,9,4,6,0,0,9,8,9,8,9,8,4,9,6,3,4,5,
%T 2,9,8,9,1,8,3,8,2,4,0,2,3,9,3,0,5,2,8,1,4,0,1,1,3,0,2,6,0,0,6,4,0,0,
%U 6,8,8,4,9,9,8,8,1,4,8,4,8,0,9,3,2,3,8,3,6,8,4,6,3,7,9,7,3,5,8,6,9,0,2,6,5
%N Decimal expansion of solution to zeta(x) = Pi.
%e zeta(1.39425321984488839...) = Pi.
%t RealDigits[x /. FindRoot[Zeta[x] - Pi, {x, 2}, WorkingPrecision -> 120], 10, 100][[1]] (* _Amiram Eldar_, May 31 2021 *)
%o (PARI) solve(x=1.1, 2, zeta(x) - Pi) \\ _Michel Marcus_, Mar 07 2021
%Y Cf. A000796 (Pi), A107311, A342203.
%K nonn,cons
%O 1,2
%A _Koksal Karakus_, Mar 05 2021
%E More terms from _Jon E. Schoenfield_, Mar 07 2021
|
