%I #15 Jan 17 2020 16:19:14

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

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

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

%N Decimal expansion of a variant of the Komornik-Loreti constant.

%D Steven R. Finch, Mathematical Constants, Cambridge University Press, 2003, Section 6.8 Prouhet-Thue-Morse Constant, p. 438.

%H Steven R. Finch, <a href="http://arxiv.org/abs/2001.00578">Errata and Addenda to Mathematical Constants</a>, p. 56.

%H Eric Weisstein's MathWorld, <a href="http://mathworld.wolfram.com/Komornik-LoretiConstant.html">Komornik-Loreti Constant</a>

%F The number 'q' is the unique positive solution of Sum_{n >= 1} (1-t(n)-t(n-1))*q^-n = 1, where t(n) = A010060(n).

%e 2.5359480481498938851124689041808082087833552617...

%t RealDigits[ q /. FindRoot[ Sum[(1 + Mod[DigitCount[n, 2, 1], 2] - Mod[DigitCount[n - 1, 2, 1], 2])/q^n, {n, 1, 2000}] == 1, {q, 5/2}, WorkingPrecision -> 120], 10, 102] // First

%Y Cf. A010060, A055060, A248853.

%K nonn,cons,easy

%O 1,1

%A _Jean-François Alcover_, Mar 03 2015