%I #40 Oct 25 2019 12:36:05
%S 0,8,9,1,149083,1,1,1,4,1,1,1,3,4,1,1,1,15
%N Continued fraction expansion of the Champernowne constant 0.1234567891011121314...
%C The next term, a(18) = 457540111...783010987 has 166 digits.
%C It is followed by a(19 .. 39) = (6, 1, 1, 21, 1, 9, 1, 1, 2, 3, 1, 7, 2, 1, 83, 1, 156, 4, 58, 8, 54). - _M. F. Hasler_, Oct 25 2019
%C a(40) = 445735380...113172423 has 2504 digits. - _Harvey P. Dale_, May 23 2015, index corrected by _M. F. Hasler_, Oct 25 2019
%H Harry J. Smith, <a href="/A030167/b030167.txt">Table of n, a(n) for n=0..39</a> (see the a-file for further terms)
%H Harry J. Smith, <a href="/A030167/a030167.txt">Table of n, a(n) for n=0..161</a>
%H H. Havermann, <a href="http://chesswanks.com/pxp/cfc.html">13522 (less the 3 largest) terms (2 MB file)</a>
%H J. K. Sikora, <a href="https://docs.google.com/file/d/0B_ZIuCD9HzQtNnlLQUdIYTRXY2M/edit">Champernowne's Constant CFE Coefficients to HWM #12 (789 MB unzipped)</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/ChampernowneConstant.html">Champernowne Constant.</a>
%H G. Xiao, <a href="http://wims.unice.fr/~wims/en_tool~number~contfrac.en.html">Contfrac</a>
%H <a href="/index/Con#confC">Index entries for continued fractions for constants</a>
%e This is the continued fraction of the number 0.123456789101112131415... whose decimals are obtained by concatenating the base-10 representations of all positive integers.
%t f[0] = 0; f[n_Integer] := 10^(Floor[Log[10, n]] + 1)*f[n - 1] + n; ContinuedFraction[ N[ f[211]/ 10^(Floor[ Log[10, f[211] ]] + 1), Floor[ Log[10, f[211] ]] + 1], 19 ]
%t chcon=Module[{con=FromDigits[Flatten[IntegerDigits/@Range[250]]]}, N[con/10^IntegerLength[con],IntegerLength[con]]]; ContinuedFraction[ chcon,19] (* _Harvey P. Dale_, Sep 18 2011 *)
%t ContinuedFraction[N[ChampernowneNumber[10],10000]] (* _Harvey P. Dale_, May 23 2015 *)
%o (PARI) { default(realprecision, 6000); x=0; y=1; d=10.0; e=1.0; n=0; while (y!=x, y=x; n++; if (n==d, d=d*10); e=e*d; x=x+n/e; ); x=contfrac(x); for (n=1, 160, write("b030167.txt", n-1, " ", x[n])); write("b030167.txt", "160 1"); write("b030167.txt", "161 1"); } \\ _Harry J. Smith_, Apr 18 2009
%Y Cf. A033307, A033435.
%K nonn,cofr,nice
%O 0,2
%A _Eric W. Weisstein_
%E Edited by _Daniel Forgues_, Apr 01 2010, _M. F. Hasler_, Oct 25 2019