%I #18 Mar 05 2021 10:54:45
%S 1,4,7,4,4,6,4,2,8,7,3,1,9,3,7,0,1,9,7,8,7,2,3,0,4,1,0,1,1,7,7,6,1,7,
%T 4,1,8,0,3,0,6,4,4,1,0,8,4,1,0,7,8,4,9,8,1,2,7,5,0,2,8,5,7,8,1,9,0,2,
%U 4,7,2,2,5,6,9,9,5,6,0,6,5,6,9,6,6,6,0,4,6,9,7,1,6,0,6,6,1,3,5,0,9,1,5
%N Decimal expansion of solution to zeta(x) = e.
%e zeta(1.4744642873...) = e.
%t RealDigits[x /. FindRoot[Zeta[x] == E, {x, 2}, WorkingPrecision -> 105], 10, 100][[1]] (* _Amiram Eldar_, Mar 05 2021 *)
%o (PARI) solve(x=1.1, 2, zeta(x)-exp(1)) \\ _Michel Marcus_, Mar 05 2021
%Y Cf. A001113 (e), A107311.
%K nonn,cons
%O 1,2
%A _Koksal Karakus_, Mar 04 2021
%E More digits from _Alois P. Heinz_, Mar 05 2021
|