login
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
OFFSET
1,2
COMMENTS
See A229230 for another version.
LINKS
Eric Weisstein's World of Mathematics, Soldner's Constant
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
Cf. A229230 (= a(n) - 1), A070769, A099804.
Sequence in context: A013152 A012911 A264726 * A009269 A012396 A013012
KEYWORD
nonn,hard,more
AUTHOR
Eric W. Weisstein, Oct 26 2004
EXTENSIONS
a(15) from Robert G. Wilson v, Aug 05 2010
Edited by N. J. A. Sloane, Jun 19 2021 (removed mention of a(0) from definition).
STATUS
approved