%I #8 Aug 15 2015 13:16:01
%S 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,
%T 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,
%U 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
%N Continued fraction for Soldner's constant.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/SoldnersConstant.html">Soldner's Constant</a>
%e [1, 2, 4, 1, 1, 1, 3, 1, 1, 1, 2, 47, 2, 4, 1, ...]
%t ContinuedFraction[x/.FindRoot[LogIntegral[x]==0,{x,1.4}, WorkingPrecision-> 120]] (* _Harvey P. Dale_, May 01 2012 *)
%K nonn,cofr
%O 1,2
%A _Eric W. Weisstein_, Oct 26 2004
|