A071004 Binary expansion of AGM(1,sqrt(2)) where AGM(x,y) denote the arithmetic-geometric mean of (x,y).

1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0

Offset

1,1

Links

G. C. Greubel, Table of n, a(n) for n = 1..10000

Mathematica

RealDigits[ArithmeticGeometricMean[1, Sqrt[2]], 2, 120][[1]] (* Harvey P. Dale, Mar 30 2015 *)

Prog

(PARI) a(n)=agm(sqrt(2), 1)*2^(n-1)\1%2 \\ Charles R Greathouse IV, Mar 03 2016

Crossrefs

Cf. A053004.

Sequence in context: A287772 A373791 A190198 * A188083 A102560 A190669

Adjacent sequences: A071001 A071002 A071003 * A071005 A071006 A071007

Keyword

base,cons,nonn

Author

Benoit Cloitre, Aug 17 2002

Status

approved