|
|
A332523
|
|
Numerators of convergents to 2 Pi + Dottie number (A332506).
|
|
3
|
|
|
5, 6, 11, 61, 316, 377, 4463, 4840, 9303, 51355, 60658, 1628463, 3317584, 38121887, 41439471, 79561358, 200562187, 280123545, 760809277, 73317814137, 74078623414, 147396437551, 221475060965, 368871498516, 590346559481, 226471603779739, 1359419969237915
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
EXAMPLE
|
d = FindRoot[Cos[u] == 2 Pi - u, {u, 0, 1}, WorkingPrecision -> 10000][[1, -1]];
Numerator[Convergents[d, 100]] (* A332523 *)
Denominator[Convergents[d, 100]] (* A332524 *)
|
|
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
|
|
|
|