|
%I #11 Mar 07 2013 09:07:14
%S 1,7,5,2,3,5,1,5,5,8,0,8,1,0,8,0,8,2,6,7,1,4,0,8,6,6,6,4,8,3,9,3,6,6,
%T 6,5,3,3,5,5,7,1,4,0,1,0,7,4,2,3,9,3,0,3,3,0,8,5,7,4,1,2,7,8,3,6,1,8,
%U 4,0,9,6,0,8,2,2,9,7,2,8,0,2,2,9,5,0,1,8,2,0,5,2,8,6,8,3,0,1,2,6,9,2,9,4,8,6,9,4,9,2,3,9,8,5,3,1,4,4,9,9
%N AGM(1,e).
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Arithmetic-GeometricMean.html">Arithmetic-Geometric Mean.</a>
%e 1.7523515580810808267140866648...
%t RealDigits[ ArithmeticGeometricMean[1, E], 10, 120] // First (* _Jean-François Alcover_, Mar 07 2013 *)
%o (PARI) agm(1,exp(1))
%K nonn,cons
%O 1,2
%A _Franklin T. Adams-Watters_, Jun 03 2011
|
