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,1

Comments

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

Links

Table of n, a(n) for n=1..56.

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

Cf. A044813, A175413.

Sequence in context: A043080 A108199 A137904 * A359220 A059192 A087339

Adjacent sequences: A175411 A175412 A175413 * A175415 A175416 A175417

Keyword

base,nonn

Author

Leroy Quet, May 07 2010

Extensions

Extended by Ray Chandler, Oct 21 2011

Status

approved