|
| |
|
|
A014572
|
|
Continued fraction for Thue-Morse constant.
|
|
7
| |
|
|
0, 2, 2, 2, 1, 4, 3, 5, 2, 1, 4, 2, 1, 5, 44, 1, 4, 1, 2, 4, 1, 1, 1, 5, 14, 1, 50, 15, 5, 1, 1, 1, 4, 2, 1, 4, 1, 43, 1, 4, 1, 2, 1, 3, 16, 1, 2, 1, 2, 1, 50, 1, 2, 424, 1, 2, 5, 2, 1, 1, 1, 5, 5, 2, 22, 5, 1, 1, 1, 1274, 3, 5, 2, 1, 1, 1, 4, 1, 1, 15, 154, 7, 2, 1, 2, 2, 1, 2, 1, 1, 50
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
REFERENCES
| Beeler, M.; Gosper, R. W.; and Schroeppel, R. HAKMEM. Cambridge, MA: Mass. Institute of Technology Artificial Intelligence Laboratory, Memo AIM-239, Item 122, Feb. 1972.
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=0,...,20000
G. Xiao, Contfrac
Beeler, M., Gosper, R. W. and Schroeppel, R., HAKMEM, ITEM 122
Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics.
Index entries for continued fractions for constants
|
|
|
EXAMPLE
| P=0.4124540336401075977833613... = 0 + 1/(2 + 1/(2 + 1/(2 + 1/(1 + ...)))) [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Apr 25 2009]
|
|
|
PROG
| (PARI) { allocatemem(932245000); default(realprecision, 21000); x=0.0; m=70000; for (n=1, m-1, x=x+x; x=x+sum(k=0, length(binary(n))-1, bittest(n, k))%2); x=x/2^m; y=contfrac(x); for (n=1, 20001, write("b014572.txt", n-1, " ", y[n])); } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Apr 25 2009]
|
|
|
CROSSREFS
| Sequence in context: A089400 A180824 A105777 * A071458 A131308 A184242
Adjacent sequences: A014569 A014570 A014571 * A014573 A014574 A014575
|
|
|
KEYWORD
| nonn,cofr
|
|
|
AUTHOR
| Eric Weisstein (eric(AT)weisstein.com)
|
| |
|
|
