A099804 Records for terms in the continued fraction of Soldner's constant.
1, 2, 4, 47, 99, 294, 527, 616, 1152, 1456, 2638, 2705, 4105, 31772, 88683, 90658, 95845, 237245, 1387437, 5499408, 12672729, 110482114
Offset: 1
Links
- Eric Weisstein's World of Mathematics, Soldner's Constant Continued Fraction
Programs
-
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 *)
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
Comments