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

%I #16 Feb 16 2025 08:33:12

%S 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,

%T 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,

%U 43,1,21,1,5,2,1,6,4,9,2,19,1,1,2,1,1,2,38

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

%H G. C. Greubel, <a href="/A177413/b177413.txt">Table of n, a(n) for n = 0..10000</a>

%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/DottieNumber.html">Dottie Number</a>

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

%Y Cf. A003957.

%K nonn,cofr,changed

%O 0,3

%A _Ben Branman_, Dec 10 2010