login
A177413
Continued fraction expansion of the constant x defined by x = cos(x).
7
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
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
KEYWORD
nonn,cofr
AUTHOR
Ben Branman, Dec 10 2010
STATUS
approved