login
Decimal expansion of solution to zeta(x) = e.
1

%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