A257097 Decimal expansion of I3(u,v) = A248897/AG3(u,v) for u=2, v=1.
9, 1, 0, 0, 7, 6, 2, 7, 2, 8, 9, 6, 6, 4, 4, 9, 9, 4, 5, 9, 3, 5, 6, 4, 3, 3, 4, 7, 1, 4, 6, 3, 0, 2, 0, 7, 5, 4, 2, 2, 9, 2, 7, 9, 7, 5, 4, 1, 4, 8, 8, 0, 8, 1, 3, 6, 5, 2, 5, 9, 0, 4, 5, 9, 6, 5, 8, 1, 4, 1, 1, 1, 3, 2, 3, 7, 4, 6, 6, 2, 8, 2, 4, 3, 5, 9, 8, 0, 0, 8, 5, 1, 7, 9, 5, 2, 2, 1, 2, 8, 1, 6, 3, 7, 1
Offset: 0
Examples
0.9100762728966449945935643347146302075422927975414880813652590...
Links
- Stanislav Sykora, Table of n, a(n) for n = 0..2000
- J. M. Borwein, P. B. Borwein, A cubic counterpart of Jacobi's identity and the AGM, Transactions of the AMS, 323 (1991), 691-701.
- Eric Weisstein's World of Mathematics, Arithmetic-Geometric Mean, Equations 26-32.
Programs
-
PARI
I3(u,v)={my(an=u+0.0,bn=v+0.0,anext=0.0,ncyc=0, eps=2*10^(-default(realprecision))); while(1, anext=(an+2*bn)/3; bn=(bn*(an*an+an*bn+bn*bn)/3)^(1/3); an=anext; ncyc++; if((ncyc>3)&&(abs(an-bn)
Formula
Equals Integral[x=0,inf](x/((8+x^3)*(1+x^3)^2)^(1/3)).
Comments