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