|
%I #4 Jun 12 2020 00:08:38
%S 5,6,11,61,316,377,4463,4840,9303,51355,60658,1628463,3317584,
%T 38121887,41439471,79561358,200562187,280123545,760809277,73317814137,
%U 74078623414,147396437551,221475060965,368871498516,590346559481,226471603779739,1359419969237915
%N Numerators of convergents to 2 Pi + Dottie number (A332506).
%e d = FindRoot[Cos[u] == 2 Pi - u, {u, 0, 1}, WorkingPrecision -> 10000][[1, -1]];
%e Numerator[Convergents[d, 100]] (* A332523 *)
%e Denominator[Convergents[d, 100]] (* A332524 *)
%t d = FindRoot[Cos[u] == 2 Pi - u, {u, 0, 1}, WorkingPrecision -> 10000][[1, -1]];
%t Numerator[Convergents[d, 100]] (* A332523 *)
%t Denominator[Convergents[d, 100]] (* A332524 *)
%Y Cf. A332524, A332506, A212112, A223957, A332500.
%K nonn,frac
%O 0,1
%A _Clark Kimberling_, May 05 2020
|
