%I #9 May 28 2016 11:13:26
%S 11,13,19,22,23,25,26,29,35,38,39,43,44,45,46,47,49,50,52,53,55,57,58,
%T 59,61,67,70,71,75,76,77,78,79,83,86,87,88,89,90,91,92,93,94,95,97,98,
%U 100,101,103,104,105,106,107,109,110,111,113,114,115,116,117,118,121
%N Those positive integers missing from sequence A164707. Those positive integers that, when written in binary, contain at least two runs of 1's that are of differing lengths.
%C Clarification: A binary number consists of "runs" completely of 1's alternating with runs completely of 0's. No two or more runs all of the same digit are adjacent.
%t Select[Range[200],Length[Union[Length/@Select[Split[IntegerDigits[ #,2]], MemberQ[ #,1]&]]]>1&] (* _Harvey P. Dale_, May 28 2016 *)
%Y A164707
%K base,nonn
%O 1,1
%A _Leroy Quet_, Aug 23 2009
%E More terms from _Max Alekseyev_, Feb 03 2010
|