A029692 n-th bit in binary expansion of square root of n.

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

Links

Table of n, a(n) for n=1..102.

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

Adjacent sequences: A029689 A029690 A029691 * A029693 A029694 A029695

Keyword

nonn,base

Author

Olivier Gérard

Status

approved