%I #17 May 15 2019 02:00:21
%S 1,8,7,1,8,0,2,1,7,6,9,0,1,5,9,1,4,2,6,6,3,6,2,5,5,3,2,0,1,0,7,1,4,2,
%T 0,3,6,7,2,9,7,6,7,8,1,0,3,9,9,9,5,1,8,6,2,2,9,8,3,6,5,5,0,1,1,7,0,0,
%U 7,1,0,4,5,3,5,4,7,1,5,4,6,3,7,9,3,7,1,1,3,3,6,4,4,4,0,7,0,8,0
%N Decimal expansion of log(13/2).
%H Harry J. Smith, <a href="/A016583/b016583.txt">Table of n, a(n) for n = 1..20000</a>
%H <a href="/index/Tra#transcendental">Index entries for transcendental numbers</a>
%e 1.871802176901591426636255320107142036729767810399951862298365501170071...
%t RealDigits[Log[13/2],10,120][[1]] (* _Harvey P. Dale_, Jul 06 2011 *)
%o (PARI) default(realprecision, 20080); x=log(13/2); for (n=1, 20000, d=floor(x); x=(x-d)*10; write("b016583.txt", n, " ", d)); \\ _Harry J. Smith_, May 26 2009
%Y Cf. A016534 Continued fraction.
%K nonn,cons
%O 1,2
%A _N. J. A. Sloane_
|