|
%I #4 Jul 10 2011 18:41:28
%S 3,0,1,5,6,2,4,7,6,1,5,8,1,4,2,0,8,9,8,4,3,7,4,9,9,9,9,9,9,9,9,9,9,9,
%T 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,
%U 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,8,0,7,7,5,8,6,4,9,9
%N Decimal expansion of the value of Minkowski's question mark function at Pi.
%C This value is very nearly 3 + (2^16 - 1)/2^22. Continued fraction expansion given by A119924.
%H <a href="/index/Me#MinkowskiQ">Index entries for sequences related to Minkowski's question mark function</a>
%e 3.0156247615814208984374999999999999999999999999999999999999999999999999999999999999999999999999807758649950...
%t RealDigits[(cf = ContinuedFraction[Pi,80(*arbitrary precision*)]; IntegerPart[Pi] + Sum[(-1)^(k)/2^(Sum[cf[[i]], {i, 2, k}] - 1), {k, 2, Length[cf]}]),10]
%Y Cf. A119924.
%K cons,nonn
%O 1,1
%A Joseph Biberstine (jrbibers(AT)indiana.edu), May 29 2006
|
