A330142 - OEIS

%I #5 Jan 05 2020 08:12:36

%S 1,1,0,8,7,0,2,6,0,8,3,7,5,8,9,3,7,7,8,7,7,2,4,0,3,2,6,6,7,1,3,6,0,3,

%T 9,3,8,9,3,2,6,5,1,3,0,5,9,2,9,5,2,5,5,2,8,6,7,5,0,3,3,9,2,7,3,6,2,3,

%U 5,8,9,7,7,8,7,9,6,9,2,2,5,7,0,1,1,5

%N Decimal expansion of the solution of (2/3)^x + (2/5)^x = 1.

%e x = 1.10870260837589377...

%t r = x /.FindRoot[(2/3)^x + (2/5)^x == 1, {x, 1, 2}, WorkingPrecision -> 200]

%t RealDigits[r] (* A330142 *)

%t Plot[(2/3)^x + (2/5)^x - 1, {x, 0, 2}]

%Y Cf. A330143, A330144.

%K nonn,cons,easy

%O 1,4

%A _Clark Kimberling_, Jan 04 2020