|
Search: id:A076392
|
|
|
| A076392 |
|
Increasing partial quotients of the continued fraction for agm(1,i)/(1+i). |
|
+0
3
|
|
| 0, 1, 2, 42, 61, 88, 238, 254, 288, 347, 575, 4034, 9853, 21798, 49736, 108435, 109003, 181562, 1035352, 1955976
(list; graph; listen)
|
|
|
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: A098634 A076391 A130201 this_sequence A048373 A066563 A070808
Adjacent sequences: A076389 A076390 A076391 this_sequence A076393 A076394 A076395
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 09 2002
|
|
|
Search completed in 0.002 seconds
|
