|
Search: id:A030167
|
|
|
| A030167 |
|
Continued fraction expansion of Champernowne constant. |
|
+0
8
|
|
| 0, 8, 9, 1, 149083, 1, 1, 1, 4, 1, 1, 1, 3, 4, 1, 1, 1, 15
(list; graph; listen)
|
|
|
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, Link to a section of The World of Mathematics.
Index entries for continued fractions for constants
|
|
EXAMPLE
|
This is the number 0.123456789101112131415...
|
|
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 ]
|
|
PROGRAM
|
(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 this_sequence A010767 A064734 A090929
Adjacent sequences: A030164 A030165 A030166 this_sequence A030168 A030169 A030170
|
|
KEYWORD
|
nonn,cofr,nice,easy
|
|
AUTHOR
|
Eric Weisstein (eric(AT)weisstein.com)
|
|
EXTENSIONS
|
a(18) has 166 digits - see the links.
|
|
|
Search completed in 0.002 seconds
|
