|
%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
|
