A387132 Decimal expansion of the absolute value of the imaginary part of the complex solutions to log(z) = -1/z on the principal branch of log(z).
7, 0, 7, 7, 5, 4, 1, 8, 8, 7, 8, 4, 7, 2, 7, 6, 1, 6, 4, 7, 2, 8, 4, 5, 8, 9, 3, 0, 7, 6, 5, 1, 6, 2, 3, 9, 4, 9, 3, 8, 4, 0, 8, 1, 4, 2, 3, 7, 5, 0, 1, 5, 5, 7, 1, 7, 8, 1, 0, 4, 5, 9, 3, 4, 5, 7, 6, 8, 8, 1, 8, 9, 8, 6, 1, 3, 5, 2, 5, 6, 8, 1, 6, 3, 1, 1, 1, 1, 0, 6, 4, 5, 5, 7, 1, 6, 0, 5, 6, 5
Offset: 0
Examples
0.7077541887847276164728458930765162394938408142...
Programs
-
Mathematica
RealDigits[Im[-1/ProductLog[-1]],10,100][[1]]
Formula
Equals Im(-1/LambertW(-1)).
Equals -Im(-1/LambertW(-1, -1)).