OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..2000
MATHEMATICA
nn=1000; Transpose[Select[With[{c=Accumulate[Rest[RealDigits[Sqrt[2], 2, nn][[1]]]]}, Thread[{c, Range[nn-1]}]], Last[#]/2==First[#]&]][[2]] (* Harvey P. Dale, Feb 27 2012 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Benoit Cloitre, Mar 22 2002
STATUS
approved