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

Author

Leroy Quet, Dec 08 2009

Keywords

• base
• nonn

Comments

This sequence consists of the terms of A144794 together with those integers of the form 2^k -1.

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A144794.

Complement of A377167.

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