login
A029692
n-th bit in binary expansion of square root of n.
0
1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 1, 0, 0, 1, 0, 1, 0
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
Sequence in context: A266895 A088592 A188189 * A309849 A071906 A104107
KEYWORD
nonn,base
STATUS
approved