login
n-th binary digit in fractional part of n-th root of n.
1

%I #11 Dec 28 2012 01:44:23

%S 0,1,1,0,0,0,1,1,1,1,0,0,0,0,1,1,0,0,0,1,1,0,0,0,1,1,1,1,1,0,1,0,0,0,

%T 1,1,1,0,1,0,0,1,0,1,1,0,1,0,0,1,0,0,0,0,1,0,0,1,0,0,1,0,0,0,1,0,0,1,

%U 1,0,0,0,1,0,0,1,1,1,1,0,0,1,0,0,0,1,0,1,0,0,1,1,0,0,0,1,1,1,1,1,1,0

%N n-th binary digit in fractional part of n-th root of n.

%H Vincenzo Librandi, <a href="/A023959/b023959.txt">Table of n, a(n) for n = 1..1000</a>

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

%K nonn,base

%O 1,1

%A _N. J. A. Sloane_, _Olivier GĂ©rard_