%I #9 Oct 18 2020 22:24:46
%S 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,
%T 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,
%U 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
%N n-th binary digit in fractional part of square root of n.
%H Robert Israel, <a href="/A029691/b029691.txt">Table of n, a(n) for n = 1..10000</a>
%p seq(floor(2^n*n^(1/2)) mod 2,n=1..200); # _Robert Israel_, Oct 16 2020
%t Array[ Function[ n, RealDigits[ N[ Sqrt[ n ], n+6 ], 2 ]// (#[ [ 1, #[ [ 2 ] ]+n ] ])& ], 110 ]
%K nonn,base
%O 1,1
%A _Olivier GĂ©rard_
|