A043724 Numbers whose number of runs in the base-2 representation is congruent to 0 mod 4.
10, 18, 20, 22, 26, 34, 36, 38, 40, 44, 46, 50, 52, 54, 58, 66, 68, 70, 72, 76, 78, 80, 88, 92, 94, 98, 100, 102, 104, 108, 110, 114, 116, 118, 122, 130, 132, 134, 136, 140, 142, 144, 152, 156, 158, 160, 170, 176, 184, 188, 190, 194, 196, 198, 200, 204, 206
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A005811.
Programs
-
Mathematica
Select[Range[200],Divisible[Length[Split[IntegerDigits[#,2]]],4]&] (* Harvey P. Dale, May 21 2012 *)
-
PARI
isok(k) = (hammingweight(bitxor(k, k>>1)) % 4) == 0; \\ Michel Marcus, Oct 04 2023