%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