A029691 n-th binary digit in fractional part of square root of n.

0, 1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

seq(floor(2^n*n^(1/2)) mod 2, n=1..200); # Robert Israel, Oct 16 2020

Mathematica

Array[ Function[ n, RealDigits[ N[ Sqrt[ n ], n+6 ], 2 ]// (#[ [ 1, #[ [ 2 ] ]+n ] ])& ], 110 ]

Crossrefs

Sequence in context: A189135 A369961 A219189 * A209229 A365089 A295890

Adjacent sequences: A029688 A029689 A029690 * A029692 A029693 A029694

Keyword

nonn,base

Author

Olivier Gérard

Status

approved