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
KEYWORD
AUTHOR
Benoit Cloitre, Aug 17 2002
STATUS
approved