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
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
Comments