|
%I #5 Nov 12 2019 19:23:22
%S 11,19,22,23,35,38,39,43,44,45,46,47,55,67,70,71,75,76,77,78,79,83,86,
%T 87,88,89,90,91,92,93,94,95,103,107,110,111,131,134,135,139,140,141,
%U 142,143,147,150,151,152,153,154,155,156,157,158,159,163,166,167
%N Numbers whose lengths of runs of 1's in their reversed binary expansion are not weakly increasing.
%e The sequence of terms together with their reversed binary expansions begins:
%e 11: (1101)
%e 19: (11001)
%e 22: (01101)
%e 23: (11101)
%e 35: (110001)
%e 38: (011001)
%e 39: (111001)
%e 43: (110101)
%e 44: (001101)
%e 45: (101101)
%e 46: (011101)
%e 47: (111101)
%e 55: (111011)
%e 67: (1100001)
%e 70: (0110001)
%e 71: (1110001)
%e 75: (1101001)
%e 76: (0011001)
%e 77: (1011001)
%e 78: (0111001)
%t Select[Range[100],!LessEqual@@Length/@Split[Join@@Position[Reverse[IntegerDigits[#,2]],1],#2==#1+1&]&]
%Y Complement of A328869.
%Y The version for prime indices is A112769.
%Y The binary expansion of n has A069010(n) runs of 1's.
%Y Cf. A000120, A003714, A014081, A164707, A245563, A304678, A328592.
%K nonn
%O 1,1
%A _Gus Wiseman_, Nov 12 2019
|
