A076392 Increasing partial quotients of the continued fraction for agm(1,i)/(1+i).

0, 1, 2, 42, 61, 88, 238, 254, 288, 347, 575, 4034, 9853, 21798, 49736, 108435, 109003, 181562, 1035352, 1955976, 6950275, 30712753, 41463747, 45117343, 112401242, 116579541

Offset

1,3

Links

Table of n, a(n) for n=1..26.

Eric Weisstein's World of Mathematics, Arithmetic-Geometric Mean

Wolfram Research, Arithmetic-Geometric Mean

Example

A076391(0) = 0
A076391(1) = 1
A076391(3) = 2
A076391(4) = 42
A076391(95) = 61
A076391(120) = 88
A076391(309) = 238
A076391(460) = 254
A076391(539) = 288
A076391(626) = 347
A076391(698) = 575
A076391(1135) = 4034
A076391(2985) = 9853
A076391(4171) = 21798
A076391(16726) = 49736
A076391(39200) = 108435
A076391(110179) = 109003
A076391(130605) = 181562
A076391(506313) = 1035352
A076391(512389) = 1955976
A076391(1248835) = 6950275
A076391(1990390) = 30712753
A076391(2528054) = 41463747
A076391(4853499) = 45117343
A076391(7427593) = 112401242
A076391(96166989) = 116579541

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 (continued fraction).

Sequence in context: A393592 A387242 A130201 * A291173 A048373 A066563

Adjacent sequences: A076389 A076390 A076391 * A076393 A076394 A076395

Keyword

nonn,more

Author

Robert G. Wilson v, Oct 09 2002

Extensions

a(21)-a(26) from Vaclav Kotesovec, Oct 03 2019

Status

approved