login
A099804
Records for terms in the continued fraction of Soldner's constant.
2
1, 2, 4, 47, 99, 294, 527, 616, 1152, 1456, 2638, 2705, 4105, 31772, 88683, 90658, 95845, 237245, 1387437, 5499408, 12672729, 110482114
OFFSET
1,2
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, cf[[k]]]]; k++ ]; lst (* Robert G. Wilson v, Aug 05 2010 *)
CROSSREFS
Cf. A070769 (decimal expansion of Soldner's constant).
Sequence in context: A105282 A348247 A018325 * A019596 A088301 A212429
KEYWORD
nonn,hard,more
AUTHOR
Eric W. Weisstein, Oct 26 2004
EXTENSIONS
a(15) from Robert G. Wilson v, Aug 05 2010
More terms from Eric W. Weisstein, Sep 16 2013
a(21)-a(22) from Eric W. Weisstein, Oct 07 2013
STATUS
approved