The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #5 Jan 04 2020 12:57:57
%S 1,4,2,4,3,1,9,8,3,9,2,3,7,4,7,2,7,2,3,9,9,7,3,9,8,1,1,1,4,8,5,9,1,8,
%T 9,0,1,3,6,1,2,4,6,6,7,9,4,7,6,6,8,9,1,6,9,3,4,1,7,6,2,0,1,2,3,8,2,9,
%U 6,3,8,7,3,3,9,7,5,6,1,9,5,0,2,9,9,6
%N Decimal expansion of the solution of 1/2^x + 1/3^(x-1) = 1.
%e x = 1.42431983923747272399739811148...
%t r = x /. FindRoot[1/2^x + 1/3^(x - 1) == 1, {x, 1, 10}, WorkingPrecision -> 200]
%t RealDigits[r] (* A330093 *)
%t Plot[1/2^x + 1/3^(x - 1) - 1, {x, 1, 2}]
%Y Cf. A330094, A330095.
%K nonn,cons,easy
%O 1,2
%A _Clark Kimberling_, Jan 04 2020