|
|
A332524
|
|
Denominators of convergents to 2 Pi + Dottie number (A332506).
|
|
3
|
|
|
1, 1, 2, 11, 57, 68, 805, 873, 1678, 9263, 10941, 293729, 598399, 6876118, 7474517, 14350635, 36175787, 50526422, 137228631, 13224474998, 13361703629, 26586178627, 39947882256, 66534060883, 106481943139, 40849118283120, 245201191641859, 286050309924979
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
MATHEMATICA
|
d = FindRoot[Cos[u] == 2 Pi - u, {u, 0, 1}, WorkingPrecision -> 10000][[1, -1]];
Numerator[Convergents[d, 100]] (* A332523 *)
Denominator[Convergents[d, 100]] (* A332524 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,frac
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|