%I #16 Jun 19 2021 12:09:58
%S 1,2,3,12,70,126,202,585,1592,2436,2544,4814,9603,12148,122447
%N Positions of records for terms in the continued fraction of Soldner's constant (A070769).
%C See A229230 for another version.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/SoldnersConstant.html">Soldner's Constant</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, k]]; k++ ]; lst (* _Robert G. Wilson v_, Aug 05 2010 *)
%Y Cf. A229230 (= a(n) - 1), A070769, A099804.
%K nonn,cofr,hard,more
%O 1,2
%A _Eric W. Weisstein_, Oct 26 2004
%E a(15) from _Robert G. Wilson v_, Aug 05 2010
%E Edited by _N. J. A. Sloane_, Jun 19 2021 (removed mention of a(0) from definition).
|