|
%I #15 Jun 20 2018 19:18:50
%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="http://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
%O 0,3
%A _Ben Branman_, Dec 10 2010
|
