|
%I #21 Jul 13 2021 16:09:37
%S 0,0,0,1,5,2,3,1,6,4,4,3,1,6,9,2,4,8,6,3,4,5,6,1,2,6,4,5,7,8,1,6,4,9,
%T 1,0,5,5,1,4,5,9,0,7,8,7,2,9,1,6,9,2,9,5,4,3,7,1,8,0,4,8,4,2,3,6,8,5,
%U 5,7,9,7,2,8,0,4,2,0,5,0,2,0,5,6,8,6,4,8,7,4,7,8,7,2,4,8,6,5,0,2,6,4,9,6
%N Decimal expansion of abs(log(cosine of 1 degree)).
%H <a href="/index/Tra#transcendental">Index entries for transcendental numbers</a>
%e 0.00015231644316924863456126457816491...
%p evalf(log(1/cos(Pi/180)), 120); # _Alois P. Heinz_, Jul 13 2021
%t Join[{0, 0, 0}, RealDigits[Log[Cos[1 Degree]], 10, 100][[1]]] (* _Amiram Eldar_, Jul 13 2021 *)
%o (PARI) -log(cos(Pi/180)) \\ _Charles R Greathouse IV_, May 15 2019
%Y Cf. A019810.
%K nonn,cons
%O 0,5
%A _Mohammad K. Azarian_, Nov 17 2005
%E a(101)-a(102) corrected by _Georg Fischer_, Jul 13 2021
|
