|
%I #17 Aug 04 2024 13:17:51
%S 1,2,4,47,99,294,527,616,1152,1456,2638,2705,4105,31772,88683,90658,
%T 95845,237245,1387437,5499408,12672729,110482114
%N Records for terms in the continued fraction of Soldner's constant.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/SoldnersConstantContinuedFraction.html">Soldner's Constant Continued Fraction</a>
%t 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 *)
%Y Cf. A070769 (decimal expansion of Soldner's constant).
%Y Cf. A099805, A229230.
%K nonn,hard,more
%O 1,2
%A _Eric W. Weisstein_, Oct 26 2004
%E a(15) from _Robert G. Wilson v_, Aug 05 2010
%E More terms from _Eric W. Weisstein_, Sep 16 2013
%E a(21)-a(22) from _Eric W. Weisstein_, Oct 07 2013
|
