A328869 Numbers whose lengths of runs of 1's in their reversed binary expansion are weakly increasing.
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 13, 14, 15, 16, 17, 18, 20, 21, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 36, 37, 40, 41, 42, 48, 49, 50, 51, 52, 53, 54, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 68, 69, 72, 73, 74, 80, 81, 82, 84, 85, 96, 97, 98, 99
Offset: 1
Keywords
Examples
The sequence of terms together with their reversed binary expansions begins: 1: (1) 2: (01) 3: (11) 4: (001) 5: (101) 6: (011) 7: (111) 8: (0001) 9: (1001) 10: (0101) 12: (0011) 13: (1011) 14: (0111) 15: (1111) 16: (00001) 17: (10001) 18: (01001) 20: (00101) 21: (10101) 24: (00011)
Crossrefs
Programs
-
Mathematica
Select[Range[100],LessEqual@@Length/@Split[Join@@Position[Reverse[IntegerDigits[#,2]],1],#2==#1+1&]&]