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