A119928 Continued fraction expansion of the value of Minkowski's question mark function at Khinchin's constant (A002210).
2, 1, 3, 11, 10, 2, 1, 1, 2, 5, 2, 4, 23, 45, 1, 3, 9, 4, 3, 1, 2, 1, 24, 13, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 3, 1, 2, 51, 2, 7, 2, 1198400, 1, 3, 2, 10, 1, 11, 13, 1, 2, 1, 4, 1, 10, 3, 13, 1, 1, 1, 2, 13, 1, 1, 122, 148, 1, 48, 3, 1, 46, 1, 1, 1, 4, 2, 1, 5, 4, 1, 2, 1, 1, 8, 1, 8, 5, 1, 7, 1, 2, 1, 1
Offset: 0
Links
Crossrefs
Cf. A119929.
Programs
-
Mathematica
ContinuedFraction[(cf = ContinuedFraction[Khinchin, 80(*arbitrary precision*)]; IntegerPart[Khinchin] + Sum[(-1)^(k)/2^(Sum[cf[[i]], {i, 2, k}] - 1), {k, 2, Length[cf]}])]