|
%I #16 Sep 09 2019 10:25:10
%S 2,11,12,13,19,23,25,29,38,44,47,50,52,56,61,70,71,78,88,92,95,98,103,
%T 104,113,114,115,116,125,134,140,142,152,158,176,184,188,191,194,196,
%U 199,200,206,207,208,220,226,227,230,232,236,240,242,243,244,253
%N 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.
%C This sequence contains those positive integers in A175413 that are not in A044813.
%t 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 *)
%Y Cf. A044813, A175413.
%K base,nonn
%O 1,1
%A _Leroy Quet_, May 07 2010
%E Extended by _Ray Chandler_, Oct 21 2011
|
