OFFSET
1,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Lambert W-Function.
Eric Weisstein's World of Mathematics, Pi.
Wikipedia, Lambert W function.
Wikipedia, Pi.
FORMULA
Equals -(log(Pi)*Pi+LambertW(-1, -log(Pi)*exp(-log(Pi)*Pi)))/log(Pi).
EXAMPLE
1.30311436056414282237568004579571932219648879925328977038807684...
MAPLE
Digits:= 200:
evalf(-(log(Pi)*Pi+LambertW(-1, -log(Pi)*exp(-log(Pi)*Pi)))/log(Pi));
MATHEMATICA
RealDigits[Pi + LambertW[-1, -Log[Pi]*Exp[-Log[Pi]*Pi]]/Log[Pi], 10, 120][[1]] (* Amiram Eldar, Apr 13 2026 *)
PROG
(PARI) localprec(9+N=100); digits(solve(x=1, 1.5, Pi+x-Pi^x)*10^N\1) \\ M. F. Hasler, Apr 13 2026
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Alois P. Heinz, Mar 14 2018
STATUS
approved
