A175414 Those positive integers that when written in binary, the lengths of the runs of 1 are distinct and the lengths of the runs of 0's are distinct, and at least one run of 0's is the same length as a run of 1's.

2, 11, 12, 13, 19, 23, 25, 29, 38, 44, 47, 50, 52, 56, 61, 70, 71, 78, 88, 92, 95, 98, 103, 104, 113, 114, 115, 116, 125, 134, 140, 142, 152, 158, 176, 184, 188, 191, 194, 196, 199, 200, 206, 207, 208, 220, 226, 227, 230, 232, 236, 240, 242, 243, 244, 253

Offset: 1

Author

Leroy Quet, May 07 2010

Keywords

• base
• nonn

Comments

This sequence contains those positive integers in A175413 that are not in A044813.

Crossrefs

Cf. A044813, A175413.

Programs

Mathematica

f[n_] := Block[{rls}, rls=Transpose[Partition[Length/@Split[IntegerDigits[n,2]],2,2,{1,1},0]]; And@@Unequal@@@rls && Intersection@@rls != {}]; Select[Range[300],f] (* Ray Chandler, Oct 21 2011 *)

Extensions

Extended by Ray Chandler, Oct 21 2011