A164708 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.
11, 13, 19, 22, 23, 25, 26, 29, 35, 38, 39, 43, 44, 45, 46, 47, 49, 50, 52, 53, 55, 57, 58, 59, 61, 67, 70, 71, 75, 76, 77, 78, 79, 83, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 97, 98, 100, 101, 103, 104, 105, 106, 107, 109, 110, 111, 113, 114, 115, 116, 117, 118, 121
Offset: 1
Crossrefs
Programs
-
Mathematica
Select[Range[200],Length[Union[Length/@Select[Split[IntegerDigits[ #,2]], MemberQ[ #,1]&]]]>1&] (* Harvey P. Dale, May 28 2016 *)
Extensions
More terms from Max Alekseyev, Feb 03 2010
Comments