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

Author

Benoit Cloitre, Aug 17 2002

Keywords

• base
• cons
• nonn

Links

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

Crossrefs

Cf. A053004.

Programs

Mathematica

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

PARI

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