|
Search: id:A014572
|
|
|
| A014572 |
|
Continued fraction for Thue-Morse constant. |
|
+0
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; listen)
|
|
|
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]
|
|
PROGRAM
|
(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: A144393 A089400 A105777 this_sequence A071458 A131308 A109978
Adjacent sequences: A014569 A014570 A014571 this_sequence A014573 A014574 A014575
|
|
KEYWORD
|
nonn,cofr
|
|
AUTHOR
|
Eric Weisstein (eric(AT)weisstein.com)
|
|
|
Search completed in 0.002 seconds
|
