|
%I #15 Oct 04 2023 10:46:33
%S 10,18,20,22,26,34,36,38,40,44,46,50,52,54,58,66,68,70,72,76,78,80,88,
%T 92,94,98,100,102,104,108,110,114,116,118,122,130,132,134,136,140,142,
%U 144,152,156,158,160,170,176,184,188,190,194,196,198,200,204,206
%N Numbers whose number of runs in the base-2 representation is congruent to 0 mod 4.
%H Harvey P. Dale, <a href="/A043724/b043724.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[200],Divisible[Length[Split[IntegerDigits[#,2]]],4]&] (* _Harvey P. Dale_, May 21 2012 *)
%o (PARI) isok(k) = (hammingweight(bitxor(k, k>>1)) % 4) == 0; \\ _Michel Marcus_, Oct 04 2023
%Y Cf. A005811.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
