login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A085395 Denominators of convergents to the Thue-Morse constant .41245403364... 4
1, 2, 5, 12, 17, 80, 257, 1365, 2987, 4352, 20395, 45142, 65537, 372827, 16469925, 16842752, 83840933, 100683685, 285208303, 1241516897, 1526725200, 2768242097, 4294967297, 24243078582, 343698067445, 367941146027, 18740755368795 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Table of n, a(n) for n=1..27.

FORMULA

Write the convergents directly underneath the partial quotients (A014572)for .412454033..starting with the first partial quotient, 2: [2, 2, 2, 1, 4, 3, 5, 2, 1, 4...] such that [2] = 1/2, [2, 2] = 2/5, [ 2, 2, 2] = 5/12 and so on, the convergents being: 1/2, 2/5, 5/12, 7/17, 33/80, 106, 257, 563/1365, 1232/2987, 1795/4352, 8412/20395...

EXAMPLE

[2, 2, 2, 1, 4] = 33/80 = .4125

MATHEMATICA

mt = 0; Do[ mt = ToString[mt] <> ToString[(10^(2^n) - 1)/9 - ToExpression[mt]], {n, 0, 7}]; d = RealDigits[ N[ ToExpression[mt], 2^7]][[1]]; a = 0; Do[ a = a + N[ d[[n]]/2^(n + 1), 100], {n, 1, 2^7}]; f[n_] := FromContinuedFraction[ ContinuedFraction[a, n]]; Table[ Denominator[f[n]], {n, 1, 28}]

CROSSREFS

Companion numerators are A085394.

Cf. A085394, A014572, A014571.

Sequence in context: A041889 A055906 A002355 * A041641 A131091 A336462

Adjacent sequences:  A085392 A085393 A085394 * A085396 A085397 A085398

KEYWORD

frac,nonn

AUTHOR

Gary W. Adamson, Jun 27 2003

EXTENSIONS

Edited by Robert G. Wilson v, Jul 15 2003

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 26 13:41 EST 2021. Contains 341632 sequences. (Running on oeis4.)