%I #15 Apr 09 2013 01:12:13
%S 6,3,8,9,6,1,2,7,6,3,1,3,6,3,4,8,0,1,1,5,0,0,3,2,9,1,1,4,6,4,7,0,1,7,
%T 8,4,2,5,7,2,3,0,5,3,7,8,3,0,5,7,9,7,2,9,4,9,5,5,8,6,9,5,6,6,4,6,3,2,
%U 4,5,2,2,4,4,8,5,4,4,7,4,9,9,0,3,4,4,5
%N Decimal expansion of sin(log(2)).
%C Imaginary part of 2^i, where i = sqrt(-1).
%C Continued fraction expansion: 0, 1, 1, 1, 3, 2, 1, 9, 1, 27, 1, 1, 13, 1, 4, 2, 1, 1, 6, 1, 3, 13, 7, 2, 3, 1, 3,...
%H Bruno Berselli, <a href="/A220085/b220085.txt">Table of n, a(n) for n = 0..1000</a>
%F sin(log(2)) = (2^i - 2^(-i))/(2i).
%e 0.63896127631363480115003291146470178425723053783057972949558695664632...
%t RealDigits[Sin[Log[2]], 10, 90][[1]] (* or *) RealDigits[Im[2^I], 10, 90][[1]]
%o (PARI) sin(log(2))
%o (Maxima) fpprec:90; ev(bfloat(sin(log(2))));
%Y Cf. A002162, A219705 (real part of 2^i).
%K nonn,cons
%O 0,1
%A _Bruno Berselli_, Dec 31 2012
|