%I A107751
%S A107751 1,1,1,1,1,2,1,1,2,1,1,2,1,1,2,1,1,2,1,1,2,1,1,2,1,1,2,1,1,2,1,1,2,1,1,
%T A107751 2,1,1,2,1,1,2,1,1,2,1,1,2,1,1,2,1,1,2,1,1,2,1,1,2,1,1,2,1,1,2,1,1,2,1,
%U A107751 1,2,1,1,2,1,1,2,1,1,2,1,1,2,1,1,2,1,1,2,1,1,2,1,1,2,1,1,2,1,1,2,1,1,2
%N A107751 A107750(n+1) - A107750(n).
%F A107751 a(n) = if n<=4 then 1 else 0^(a(n-1)-1) + 0^(a(n-2)-1).
%t A107751 A107751[ nmax_ ] := Length /@ Split[ (Total[ 1 - IntegerDigits[ #1, 2 
               ] ] &) /@ Range[ 0, nmax ] ]; A107751[ 200 ] - Peter Pein (petsie(AT)dordos.net), 
               Oct 12 2007
%Y A107751 Cf. A100063, A099837, A100051, A107688.
%Y A107751 Sequence in context: A100063 A132419 A131556 this_sequence A132367 A101825 
               A057079
%Y A107751 Adjacent sequences: A107748 A107749 A107750 this_sequence A107752 A107753 
               A107754
%K A107751 nonn
%O A107751 0,6
%A A107751 Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), May 23 2005