A073070 Binary expansion of 1/AGM(1,sqrt(2)).

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

Offset

1,1

Links

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

Mathematica

1/ArithmeticGeometricMean[1, Sqrt[2]] // RealDigits[#, 2, 104]& // First // Prepend[#, 0]& (* Jean-François Alcover, Mar 04 2013 *)

Prog

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

Crossrefs

Cf. A014549.

Sequence in context: A192082 A353498 A296066 * A370702 A189687 A353817

Adjacent sequences: A073067 A073068 A073069 * A073071 A073072 A073073

Keyword

base,cons,nonn

Author

Benoit Cloitre, Aug 17 2002

Status

approved