OFFSET
1,2
FORMULA
x + 3^x = x * 3^x.
EXAMPLE
x = 1.31056994659080934557514...
MATHEMATICA
r = x /. FindRoot[1/x + 1/3^x == 1, {x, 1, 10}, WorkingPrecision -> 120]
RealDigits[r][[1]] (* A329989 *)
Plot[1/x + 1/3^x - 1, {x, 1, 2}]
CROSSREFS
KEYWORD
AUTHOR
Clark Kimberling, Jan 02 2020
STATUS
approved