|
%I #5 Oct 03 2019 14:08:49
%S 0,1,1,2,42,1,1,1,1,1,1,6,1,4,3,1,1,32,1,1,16,18,2,1,10,1,3,2,2,1,2,1,
%T 1,4,3,8,2,1,2,1,12,6,1,6,4,1,11,2,2,12,1,1,2,1,1,5,1,4,1,16,1,1,5,1,
%U 2,5,4,1,4,1,1,1,1,2,3,1,17,1,1,4,4,3,2,1,2,5,8,1,9,15,1,2,2,1,2,61,1,3
%N Continued fraction for agm(1,i)/(1+i) (A076390).
%H Vaclav Kotesovec, <a href="/A076391/b076391.txt">Table of n, a(n) for n = 1..100000</a>
%H Wolfram Research, <a href="http://functions.wolfram.com/EllipticFunctions/ArithmeticGeometricMean/">Arithmetic-Geometric Mean</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Arithmetic-GeometricMean.html">Arithmetic-Geometric Mean</a>
%t ContinuedFraction[ Chop[ N[ ArithmeticGeometricMean[1, I]/(1 + I]), 150]]]
%Y Cf. A076390 & A076392.
%K cofr,nonn
%O 1,4
%A _Robert G. Wilson v_, Oct 09 2002
|
