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
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