

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.


1



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

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


LINKS



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 *)


CROSSREFS



KEYWORD

base,nonn


AUTHOR



EXTENSIONS



STATUS

approved



