OFFSET
0,1
LINKS
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]}])]
CROSSREFS
KEYWORD
cofr,nonn
AUTHOR
Joseph Biberstine (jrbibers(AT)indiana.edu), May 29 2006; corrected Jun 04 2006
STATUS
approved