A177413 Continued fraction expansion of the constant x defined by x = cos(x).

0, 1, 2, 1, 4, 1, 40, 1, 9, 4, 2, 1, 15, 2, 12, 1, 21, 1, 17, 52, 3, 1, 6, 1, 2, 2, 1, 1, 2, 82, 1, 1, 2, 39, 27, 1, 15, 1, 1, 1, 2, 26, 1, 10, 1, 2, 1, 1, 1, 6, 1, 4, 1, 4839, 1, 2, 1, 4, 7, 2, 1, 43, 1, 21, 1, 5, 2, 1, 6, 4, 9, 2, 19, 1, 1, 2, 1, 1, 2, 38

Offset

0,3

Links

G. C. Greubel, Table of n, a(n) for n = 0..10000

Eric Weisstein's World of Mathematics, Dottie Number

Mathematica

FindRoot[x == Cos[x], {x, 0}, WorkingPrecision -> 10000]; z = x /. %; ContinuedFraction[z]

Crossrefs

Cf. A003957.

Sequence in context: A186727 A145998 A218952 * A009832 A016445 A244554

Adjacent sequences: A177410 A177411 A177412 * A177414 A177415 A177416

Keyword

nonn,cofr

Author

Ben Branman, Dec 10 2010

Status

approved