|
|
A099805
|
|
Positions of records for terms in the continued fraction of Soldner's constant (A070769).
|
|
2
|
|
|
1, 2, 3, 12, 70, 126, 202, 585, 1592, 2436, 2544, 4814, 9603, 12148, 122447
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
f = FindRoot[LogIntegral@x, {x, 3/2}, WorkingPrecision -> 2^17][[1, 2]]; cf = ContinuedFraction@f; k = 1; mx = 0; lst = {}; len = Length@ cf; While[k < len, If[ cf[[k]] > mx, mx = cf[[k]]; AppendTo[lst, k]]; k++ ]; lst (* Robert G. Wilson v, Aug 05 2010 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,cofr,hard,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Edited by N. J. A. Sloane, Jun 19 2021 (removed mention of a(0) from definition).
|
|
STATUS
|
approved
|
|
|
|