|
| |
|
|
A076392
|
|
Increasing partial quotients of the continued fraction for agm(1,i)/(1+i).
|
|
2
| |
|
|
0, 1, 2, 42, 61, 88, 238, 254, 288, 347, 575, 4034, 9853, 21798, 49736, 108435, 109003, 181562, 1035352, 1955976
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
LINKS
| Eric Weisstein's World of Mathematics, Arithmetic-Geometric Mean
Wolfram Research, Arithmetic-Geometric Mean
|
|
|
MATHEMATICA
| a = ContinuedFraction[ Chop[ N[ ArithmeticGeometricMean[1, I]/(1 + I]), 10^4]]]; b = 0; Do[ If[ a[[n]] > b, Print[a[[n]]]; b = a[[n]]], {n, 1, 10^4}]
|
|
|
CROSSREFS
| Cf. A076390 & A076391.
Sequence in context: A193270 A076391 A130201 * A048373 A066563 A202865
Adjacent sequences: A076389 A076390 A076391 * A076393 A076394 A076395
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 09 2002
|
| |
|
|
