|
%I #22 Jul 11 2023 03:53:31
%S 1,3,2,5,8,1,7,6,6,3,6,6,8,0,3,2,4,6,5,0,5,9,2,3,9,2,1,0,4,2,8,4,7,5,
%T 6,3,1,1,8,4,4,4,0,6,0,1,3,0,6,3,6,8,8,4,3,3,6,0,0,9,6,3,8,1,4,8,6,5,
%U 5,3,0,8,3,5,5,5,4,6,2,4,0,2,7,3,9,4,8,3,2,5,5,0,0,2,3,5,6,5,4,2
%N Decimal expansion of arctan(4).
%H G. C. Greubel, <a href="/A195628/b195628.txt">Table of n, a(n) for n = 1..10000</a>
%F Equals arcsin(4/sqrt(17)) = arccos(1/sqrt(17)). - _Amiram Eldar_, Jul 11 2023
%e arctan(4) = 1.3258176636680324650592392104284756311844406013...
%t r = 4;
%t N[ArcTan[r], 100]
%t RealDigits[%] (* A195628 *)
%t N[ArcCot[r], 100]
%t RealDigits[%] (* A195727 *)
%t N[ArcSec[r], 100]
%t RealDigits[%] (* A195731 *)
%t N[ArcCsc[r], 100]
%t RealDigits[%] (* A195621 *)
%o (Magma) SetDefaultRealField(RealField(125)); Arctan(4); // _G. C. Greubel_, Apr 13 2023
%o (SageMath) numerical_approx( arctan(4), digits=125) # _G. C. Greubel_, Apr 13 2023
%Y Cf. A195727, A195731, A195621.
%K nonn,cons
%O 1,2
%A _Clark Kimberling_, Sep 23 2011
|
