%I A030302
%S A030302 1,1,0,1,1,1,0,0,1,0,1,1,1,0,1,1,1,1,0,0,0,1,0,0,1,1,0,1,0,1,
%T A030302 0,1,1,1,1,0,0,1,1,0,1,1,1,1,0,1,1,1,1,1,0,0,0,0,1,0,0,0,1,1,
%U A030302 0,0,1,0,1,0,0,1,1,1,0,1,0,0,1,0,1,0,1,1,0,1,1,0,1,0,1,1,1,1
%N A030302 Write n in base 2 and juxtapose.
%F A030302 Let "index" i = ceiling( W(log(2)/2 (n - 1))/log(2) + 1 ) where W denotes 
               the principal branch of the Lambert W function. Then a(n) = mod(floor(2^(mod(n 
               + 2^i - 2, i) - i + 1) ceiling((n + 2^i - 1)/i - 1)), 2). See also 
               Mathematica code. - David W. Cantrell (DWCantrell(AT)sigmaxi.net), 
               Feb 19 2007
%t A030302 i[n_] := Ceiling[FullSimplify[ProductLog[Log[2]/2 (n - 1)]/Log[2] + 1]]; 
               a[n_] := Mod[Floor[2^(Mod[n + 2^i[n] - 2, i[n]] - i[n] + 1) Ceiling[(n 
               + 2^i[n] - 1)/i[n] - 1]], 2]; - David W. Cantrell (DWCantrell(AT)sigmaxi.net), 
               Feb 19 2007
%Y A030302 Essentially same as A030190. Cf. A030303, ...
%Y A030302 Sequence in context: A014114 A014219 A065828 this_sequence A051023 A030657 
               A165728
%Y A030302 Adjacent sequences: A030299 A030300 A030301 this_sequence A030303 A030304 
               A030305
%K A030302 nonn,base
%O A030302 1,1
%A A030302 Clark Kimberling (ck6(AT)evansville.edu)