|
%I #29 Sep 08 2022 08:44:44
%S 1,1,1,0,6,1,2,5,1,4,8,2,9,1,9,2,8,7,0,1,4,3,4,8,1,9,6,4,1,6,5,1,3,5,
%T 5,3,2,5,7,6,9,5,9,5,1,0,3,9,0,8,5,9,0,4,8,1,8,4,4,0,2,2,2,0,2,8,9,9,
%U 6,5,5,3,5,8,7,3,7,3,1,3,6,5,4,5,8,5,0,6,1,6,9,2,1,5,8,7,8,6,8
%N Decimal expansion of tangent of 48 degrees.
%C Also the decimal expansion of cotangent of 42 degrees. - _Ivan Panchenko_, Sep 01 2014
%H Ivan Panchenko, <a href="/A019946/b019946.txt">Table of n, a(n) for n = 1..1000</a>
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Exact_trigonometric_constants">Exact trigonometric constants</a>
%F Equals cot(7*Pi/30) = sqrt(23 - 10*sqrt(5) + 2*sqrt(3*(85 -38*sqrt(5)))). - _G. C. Greubel_, Nov 24 2018
%F Let r(n) = (n - 1)/(n + 1) if n mod 4 = 1, (n + 1)/(n - 1) otherwise; then this constant equals with Product_{n>=0} r(30*n+15) = (8/7) * (22/23) * (38/37) * (52/53) ... - _Dimitris Valianatos_, Sep 14 2019
%e 1.11061251482919287014348196416513553257695951039085904818440222...
%t RealDigits[Tan[48 Degree],10,120][[1]] (* _Harvey P. Dale_, Nov 26 2011 *)
%t RealDigits[Tan[4*Pi/15], 10, 100][[1]] (* _G. C. Greubel_, Nov 24 2018 *)
%o (PARI) default(realprecision, 100); tan(4*Pi/15) \\ _G. C. Greubel_, Nov 24 2018
%o (Magma) SetDefaultRealField(RealField(100)); R:= RealField(); Tan(4*Pi(R)/15); // _G. C. Greubel_, Nov 24 2018
%o (Sage) numerical_approx(tan(4*pi/15), digits=100) # _G. C. Greubel_, Nov 24 2018
%Y Cf. A019857 (sine of 48 degrees).
%K nonn,cons
%O 1,5
%A _N. J. A. Sloane_
|
