A173025 Numbers whose binary representation contains no isolated digits "11".
0, 1, 2, 4, 5, 7, 8, 9, 10, 14, 15, 16, 17, 18, 20, 21, 23, 28, 29, 30, 31, 32, 33, 34, 36, 37, 39, 40, 41, 42, 46, 47, 56, 57, 58, 60, 61, 62, 63, 64, 65, 66, 68, 69, 71, 72, 73, 74, 78, 79, 80, 81, 82, 84, 85, 87, 92, 93, 94, 95, 112, 113, 114, 116, 117, 119, 120, 121, 122
Offset: 1
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Range[0, 150], FreeQ[Split[IntegerDigits[#, 2]], {1, 1}] &] (* Paolo Xausa, Oct 15 2024 *)