%I
%S 1,1,3,4,19,23,939,962,9597,39350,88297,127647,2003002,4133651,
%T 51606814,55740465,1222156579,1277897044,22946406327,1194491026048,
%U 3606419484471,4800910510519,32411882547585
%N Denominators of convergents to the Dottie number, A003957
%H G. C. Greubel, <a href="/A212113/b212113.txt">Table of n, a(n) for n = 0..1000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/DottieNumber.html">Dottie Number</a>
%t z = FindRoot[Cos[x] == x, {x, 0, 1}, WorkingPrecision > 10000][[1, 1]]; Denominator[Convergents[z, 100]]
%Y Cf. A003957, A212112.
%K nonn,frac
%O 0,3
%A _Ben Branman_, May 01 2012
