|
%I #6 Jul 10 2011 18:41:28
%S 0,1,1,1,2,2,4,4,1,2,1,3,1,1,11,1,1,1,1,5,1,4,2,3,2,5,34,1,1,1,1,1,7,
%T 5,7,2,71,1,57,5,3,7,1,9,1,8,1,5,2,1,2,1,2,2,14,34,1,1,7,14,1,1,2,1,
%U 19,1,1,8,1,6,1,3,1,3,1,9,1,9,3,1,6,1,1,6,3,1,3,3,4,2,42,21,1,1,1,2,8,3,1,5
%N Continued fraction expansion of the value of Minkowski's question mark function at 6/Pi^2.
%C Decimal expansion given by A119923.
%H <a href="/index/Me#MinkowskiQ">Index entries for Minkowski's question mark function</a>
%H <a href="/index/Me#MinkowskiQ">Index entries for sequences related to Minkowski's question mark function</a>
%t ContinuedFraction[(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]}])]
%Y Cf. A119923.
%K cofr,nonn
%O 0,5
%A Joseph Biberstine (jrbibers(AT)indiana.edu), May 29 2006
|
