login
A073070
Binary expansion of 1/AGM(1,sqrt(2)).
1
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
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
KEYWORD
base,cons,nonn
AUTHOR
Benoit Cloitre, Aug 17 2002
STATUS
approved