OFFSET
0,2
FORMULA
floor( agm(a(n), 1) ) = 2^n, for n>=0.
MATHEMATICA
Flatten[{1, Table[Ceiling[y /. FindRoot[Log[Pi/(2*EllipticK[1 - y^2])] == n*Log[2], {y, n*2^n}, MaxIterations -> 1000]], {n, 1, 50}]}] (* Vaclav Kotesovec, Sep 28 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Dec 10 2003
STATUS
approved