The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #5 Mar 30 2012 17:20:46
%S 0,1,1,1,0,0,0,0,1,0,0,1,0,1,0,0,1,1,0,1,1,0,1,1,0,1,0,1,0,0,1,1,0,0,
%T 0,0,0,0,0,0,0,1,0,0,1,0,1,1,0,1,0,0,0,0,0,1,1,0,0,1,0,1,1,0,1,1,0,1,
%U 1,0,1,0,0,0,1,1,0,0,0,1,0,1,1,1,1,1,0,0,1,0,1,0,0,1,1,0,1,1,0,1,0,1
%N n-th binary digit in fractional part of cube root of n.
%t Array[ Function[ n, RealDigits[ N[ Power[ n, 1/3 ], n+6 ], 2 ]// (#[ [ 1, #[ [ 2 ] ]+n ] ])& ], 110 ]
%K nonn,base
%O 1,1
%A _Olivier Gérard_