A043726 Numbers whose number of runs in the base-2 representation is congruent to 2 mod 4.
2, 4, 6, 8, 12, 14, 16, 24, 28, 30, 32, 42, 48, 56, 60, 62, 64, 74, 82, 84, 86, 90, 96, 106, 112, 120, 124, 126, 128, 138, 146, 148, 150, 154, 162, 164, 166, 168, 172, 174, 178, 180, 182, 186, 192, 202, 210, 212, 214, 218, 224, 234, 240
Offset: 1
Programs
-
Mathematica
Select[Range[2,250,2],Mod[Length[Split[IntegerDigits[#,2]]],4]==2&] (* Harvey P. Dale, Sep 26 2018 *)
Comments