A175054 A positive integer n is included if there is no run of 0's in the binary representation of n that is only one digit long.
1, 3, 4, 7, 8, 9, 12, 15, 16, 17, 19, 24, 25, 28, 31, 32, 33, 35, 36, 39, 48, 49, 51, 56, 57, 60, 63, 64, 65, 67, 68, 71, 72, 73, 76, 79, 96, 97, 99, 100, 103, 112, 113, 115, 120, 121, 124, 127, 128, 129, 131, 132, 135, 136, 137, 140, 143, 144, 145, 147, 152, 153, 156
Offset: 1
Links
- Michael De Vlieger, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Range@ 160, Select[Split@ IntegerDigits[#, 2], Length[#] == 1 && First[#] == 0 &] == {} &] (* Michael De Vlieger, Sep 03 2017 *)
Extensions
Extended by Ray Chandler, Dec 18 2009
Comments