|
%I #4 Jul 10 2011 18:41:28
%S 2,7,5,5,5,0,8,4,0,9,9,8,7,6,6,9,4,4,0,0,2,5,2,9,1,9,6,9,5,1,5,5,9,1,
%T 7,6,1,2,0,8,3,8,4,0,1,4,0,2,6,3,9,4,8,8,9,7,7,5,4,3,3,1,2,4,4,1,1,2,
%U 3,1,4,2,4,5,5,5,3,5,1,7,0,2,9,2,5,6,7,1,4,2,9,3,0,8,4,3,0,4,1,3,1,4,6,2,8
%N Decimal expansion of the value of Minkowski's question mark function at Khinchin's constant (A002210).
%H <a href="/index/Me#MinkowskiQ">Index entries for sequences related to Minkowski's question mark function</a>
%e 2.755508409987669440025291969515591761208384014026394889775...
%t (*ensure variables are appropriately Cleared*) Off[ContinuedFraction::incomp]; mq[x_] := (If[Element[x, Rationals], cf = ContinuedFraction[x], cf = ContinuedFraction[x, 80(*arbitrary precision*)]]; IntegerPart[x] + Sum[(-1)^(k)/2^(Sum[cf[[i]], {i, 2, k}] - 1), {k, 2, Length[cf]}]); RealDigits[mq[Khinchin],10]
%t RealDigits[(cf = ContinuedFraction[Khinchin, 80(*arbitrary precision*)]; IntegerPart[Khinchin] + Sum[(-1)^(k)/2^(Sum[cf[[i]], {i, 2, k}] - 1), {k,2, Length[cf]}]), 10]
%Y Cf. A119928.
%K cons,nonn
%O 1,1
%A Joseph Biberstine (jrbibers(AT)indiana.edu), May 29 2006; corrected Jun 04 2006
|
