|
%I #7 Jul 29 2021 10:15:19
%S 3,1,6,4,0,6,2,4,9,9,9,9,2,7,2,4,0,4,2,3,8,5,8,1,6,5,7,4,0,9,6,6,7,9,
%T 6,8,7,4,9,9,9,9,9,9,9,9,9,9,9,9,9,7,3,2,6,6,6,4,0,8,4,0,0,2,7,1,0,9,
%U 3,8,0,5,8,0,2,1,0,6,6,1,4,9,6,1,8,0,7,9,6,6,8,9,9,1,2,2,2,3,7,4
%N Decimal expansion of the value of Minkowski's question mark function at Levy's constant (Exp[Pi^2/(12*Log[2])], A086702).
%C a[92] has over 150 decimal digits, making 750332738256083509758042341909438953923620244270237443771885409340366143805720089/2^267 an excellent approximation to the constant.
%H <a href="/index/Me#MinkowskiQ">Index entries for sequences related to Minkowski's question mark function</a>
%e 3.164062499992724042385816574096679687499999999999997...
%t RealDigits[cf = ContinuedFraction[Exp[Pi^2/(12*Log[2])], 50(*arbitrary precision*)]; IntegerPart[Exp[Pi^2/(12*Log[2])]] + Sum[(-1)^(k)/2^(Sum[cf[[i]], {i, 2, k}] - 1), {k, 2, Length[cf]}], 10, 100]
%Y Cf. A120028.
%K cons,nonn
%O 1,1
%A Joseph Biberstine (jrbibers(AT)indiana.edu), Jun 04 2006
|
