A099803 Continued fraction for Soldner's constant.
1, 2, 4, 1, 1, 1, 3, 1, 1, 1, 2, 47, 2, 4, 1, 12, 1, 1, 2, 2, 1, 7, 2, 1, 1, 1, 2, 30, 6, 3, 6, 1, 6, 1, 3, 1, 1, 1, 1, 10, 1, 1, 2, 2, 1, 4, 2, 5, 26, 5, 1, 19, 2, 6, 1, 10, 28, 1, 2, 1, 10, 2, 1, 1, 11, 1, 4, 19, 16, 99, 1, 1, 1, 35, 1, 1, 3, 2, 3, 1, 3, 2, 1, 1, 1, 1, 1, 1, 11, 3, 2, 1, 6, 5, 1
Offset: 0
Examples
[1, 2, 4, 1, 1, 1, 3, 1, 1, 1, 2, 47, 2, 4, 1, ...]
Links
- Eric Weisstein's World of Mathematics, Soldner's Constant.
Programs
-
Mathematica
ContinuedFraction[x/.FindRoot[LogIntegral[x]==0,{x,1.4}, WorkingPrecision-> 120]] (* Harvey P. Dale, May 01 2012 *)
Extensions
Offset changed by Andrew Howroyd, Aug 04 2024