A223910 Numbers for which the maximal run of 1's in their binary representation contains even number of 1's.
0, 3, 6, 11, 12, 13, 15, 19, 22, 24, 25, 26, 27, 30, 35, 38, 43, 44, 45, 47, 48, 49, 50, 51, 52, 53, 54, 60, 61, 63, 67, 70, 75, 76, 77, 79, 83, 86, 88, 89, 90, 91, 94, 96, 97, 98, 99, 100, 101, 102, 104, 105, 106, 107, 108, 109, 111, 120, 121, 122, 123, 126
Offset: 1
Links
- Peter J. C. Moses, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Range[0,200],EvenQ[Max[Map[Count[#,1]&,Split[IntegerDigits[#,2]]]]]&] (* Peter J. C. Moses, Mar 29 2013 *)
Comments