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,2

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

Mathematica

Select[Range@ 160, Select[Split@ IntegerDigits[#, 2], Length[#] == 1 && First[#] == 0 &] == {} &] (* Michael De Vlieger, Sep 03 2017 *)

Crossrefs

Cf. A144794.

Complement of A377167.

Sequence in context: A187903 A187839 A183988 * A154366 A226227 A319736

Adjacent sequences: A175051 A175052 A175053 * A175055 A175056 A175057

Keyword

base,nonn

Author

Leroy Quet, Dec 08 2009

Extensions

Extended by Ray Chandler, Dec 18 2009

Status

approved