%I #15 Feb 07 2022 08:18:20
%S 0,4,7,2,2,0,0,9,6,2,5,4,3,5,9,8,3,3,7,6,6,8,7,8,6,9,4,0,4,8,7,9,4,5,
%T 6,5,4,9,5,5,4,8,9,9,4,7,2,7,3,4,2,7,8,1,3,2,8,1,8,2,1,9,8,2,7,8,3,5,
%U 3,3,0,1,1,6,7,0,6,3,5,9,5,5,6,3,6,8,1,2,3,8,9,8,2,3,3,2,2,6,0,5,3,2,2,8
%N Decimal expansion of cosine of the golden ratio, negated. That is, the decimal expansion of -cos((1+sqrt(5))/2).
%C By the Lindemann-Weierstrass theorem, this constant is transcendental. - _Charles R Greathouse IV_, May 13 2019
%H <a href="/index/Tra#transcendental">Index entries for transcendental numbers</a>.
%F Equals 1/A139349. - _Amiram Eldar_, Feb 07 2022
%e -0.04722009625435983376687869404879456549554899472734...
%t Join[{0}, RealDigits[Cos[GoldenRatio], 10, 100][[1]]] (* _Amiram Eldar_, Feb 07 2022 *)
%o (PARI) -cos((1+sqrt(5))/2) \\ _Charles R Greathouse IV_, May 13 2019
%Y Cf. A001622, A094214, A104457, A098317, A002390, A139339, A139340, A139341, A139342, A139345, A139349.
%K nonn,cons
%O 0,2
%A _Mohammad K. Azarian_, Apr 15 2008
%E Edited by _N. J. A. Sloane_, Dec 11 2008