%I #25 Jul 04 2023 11:10:26
%S 2,6,0,4,0,0,8,1,9,0,5,3,0,9,4,0,2,8,8,6,9,6,4,2,7,4,4,8,7,2,5,0,3,4,
%T 3,3,0,9,2,7,0,6,5,2,5,5,6,3,7,6,4,9,4,8,7,7,4,8,4,1,3,2,5,4,4,5,5,6,
%U 7,9,2,8,0,5,6,8,5,1,8,5,2,6,9,5,6,1,2,1,1,1,6,8,5,4,3,2,8,8,5,5,4,4
%N Decimal expansion of agm(1,5), the arithmetic-geometric mean of 1 and 5.
%H Ivan Panchenko, <a href="/A084897/b084897.txt">Table of n, a(n) for n = 1..1000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Arithmetic-GeometricMean.html">Arithmetic-Geometric Mean</a>
%F 2.6040081905309402886964274487250343309270652556376494877484132544556792805685...
%t RealDigits[ArithmeticGeometricMean[1, 5], 10, 120][[1]] (* _Vincenzo Librandi_, Mar 12 2015 *)
%t RealDigits[N[3Pi/(2EllipticK[4/9]), 102]][[1]] (* _Jean-François Alcover_, Jun 02 2019 *)
%o (PARI) agm(1, 5) \\ _Michel Marcus_, Jun 02 2019
%Y Cf. A068521 (agm(1,2)), A084895 (agm(1,3)), A084896 (agm(1,4)).
%K nonn,cons,easy
%O 1,1
%A _Eric W. Weisstein_, Jun 10 2003
|