|
| |
|
|
A030167
|
|
Continued fraction expansion of Champernowne constant.
|
|
8
| |
|
|
0, 8, 9, 1, 149083, 1, 1, 1, 4, 1, 1, 1, 3, 4, 1, 1, 1, 15
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=0,...,39 (see the a-file for further terms)
Harry J. Smith, Table of n, a(n) for n=0,...,161
H. Havermann, 13522 (less the 3 largest) terms (2 MB file)
G. Xiao, Contfrac
Eric Weisstein's World of Mathematics, Champernowne Constant.
Index entries for continued fractions for constants
|
|
|
EXAMPLE
| This is the number 0.123456789101112131415... whose base 10 representation character string is obtained by appending to the string "0." the base 10 representation character strings of all positive integers successively.
|
|
|
MATHEMATICA
| 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 ]
chcon=Module[{con=FromDigits[Flatten[IntegerDigits/@Range[250]]]}, N[con/10^IntegerLength[con], IntegerLength[con]]]; ContinuedFraction[ chcon, 19] (* From Harvey P. Dale, Sep 18 2011 *)
|
|
|
PROG
| (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]
|
|
|
CROSSREFS
| Cf. A033307, A033435.
Sequence in context: A053463 A073636 A113521 * A010767 A064734 A090929
Adjacent sequences: A030164 A030165 A030166 * A030168 A030169 A030170
|
|
|
KEYWORD
| nonn,cofr,nice,easy
|
|
|
AUTHOR
| Eric Weisstein (eric(AT)weisstein.com)
|
|
|
EXTENSIONS
| a(18) has 166 digits - see the links.
Edited by Daniel Forgues (squid(AT)zensearch.com), Apr 01 2010
|
| |
|
|
