OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Arithmetic-Geometric Mean.
Wikipedia, Arithmetic-geometric mean
EXAMPLE
AGM(Pi,e) = 2.926108551572304696665895710170558531...
MAPLE
evalf(GaussAGM(Pi, exp(1)), 144); # Alois P. Heinz, Jul 05 2023
MATHEMATICA
RealDigits[ArithmeticGeometricMean[Pi, E], 10, 100][[1]] (* Amiram Eldar, May 31 2021 *)
PROG
(PARI) agm(exp(1), Pi) \\ Charles R Greathouse IV, Mar 03 2016
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Zak Seidov, Oct 05 2002
STATUS
approved