%I #15 Jun 28 2018 05:24:03
%S 0,1,2,3,14,17,694,711,7093,29083,65259,94342,1480389,3055120,
%T 38141829,41196949,903277758,944474707,16959347777,882830559111,
%U 2665451025110,3548281584221,23955140530436
%N Numerators of convergents to the Dottie number, A003957.
%H G. C. Greubel, <a href="/A212112/b212112.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]]; Numerator[Convergents[z, 100]]
%Y Cf. A003957, A212113.
%K nonn,frac
%O 0,3
%A _Ben Branman_, May 01 2012