OFFSET
1,2
COMMENTS
See the main entry A332093 for more information on the multi-argument AGM(...) used here. One main motivation for these entries is to find exact formulas for this function which seems not yet well studied in the literature, or at least for particular values like this one, A332092 = AGM(1,2,2) and A332093 = AGM(1,2,3). Any references to possibly existing works using this definition would be welcome.
Other 3-argument generalizations of the AGM have been proposed (cf. A332093) which will give different values for AGM(1,1,2).
LINKS
Vladimir Reshetnikov, Arithmetic-geometric mean of 3 numbers, math.StackExchange.com, May 22 2016.
User Mathlover, To find the limit of three terms mean iteration, math.StackExchange.com, Jul 12 2013.
Wikipedia, Arithmetic-geometric mean, created Jan 2, 2002.
EXAMPLE
1.294575108116612643448643498210035367403797272156424586808664172...
PROG
(PARI) f(k, x, S)={forvec(i=vector(k, i, [1, #x]), S+=vecprod(vecextract(x, i)), 2); S/binomial(#x, k)} \\ normalized k-th elementary symmetric polynomial in x
AGM(x)={until(x[1]<=x[#x], x=[sqrtn(f(k, x), k)|k<-[1..#x]]); vecsum(x)/#x}
default(realprecision, 100); digits(AGM([1, 1, 2])\.1^100)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
M. F. Hasler, Sep 18 2020
STATUS
approved