%I A030167
%S A030167 0,8,9,1,149083,1,1,1,4,1,1,1,3,4,1,1,1,15
%N A030167 Continued fraction expansion of Champernowne constant.
%H A030167 Harry J. Smith, <a href="b030167.txt">Table of n, a(n) for n=0,...,39</
               a> (see the a-file for further terms)
%H A030167 Harry J. Smith, <a href="a030167.txt">Table of n, a(n) for n=0,...,161</
               a>
%H A030167 H. Havermann, <a href="http://chesswanks.com/pxp/cfc.html">13522 (less 
               the 3 largest) terms (2 MB file)</a>
%H A030167 G. Xiao, <a href="http://wims.unice.fr/~wims/en_tool~number~contfrac.en.html">
               Contfrac</a>
%H A030167 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               ChampernowneConstant.html">Link to a section of The World of Mathematics.</
               a>
%H A030167 <a href="Sindx_Con.html#confC">Index entries for continued fractions 
               for constants</a>
%e A030167 This is the number 0.123456789101112131415...
%t A030167 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 ]
%o A030167 (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"); } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), 
               Apr 18 2009]
%Y A030167 Cf. A033307, A033435.
%Y A030167 Sequence in context: A053463 A073636 A113521 this_sequence A010767 A064734 
               A090929
%Y A030167 Adjacent sequences: A030164 A030165 A030166 this_sequence A030168 A030169 
               A030170
%K A030167 nonn,cofr,nice,easy
%O A030167 0,2
%A A030167 Eric Weisstein (eric(AT)weisstein.com)
%E A030167 a(18) has 166 digits - see the links.