OFFSET
1,1
MATHEMATICA
Array[ Function[ n, RealDigits[ N[ Sqrt[ n ], n+6 ], 2 ]// (#[ [ 1, n ] ])& ], 110 ]
Table[RealDigits[Sqrt[n], 2, n+2][[1, n]], {n, 110}] (* Harvey P. Dale, May 15 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved