%I #11 Oct 06 2023 03:29:09
%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,176,184,188,190,194,196
%N Numbers whose number of runs in the base-2 representation is congruent to 4 mod 7.
%t Select[Range[200],Mod[Length[Split[IntegerDigits[#,2]]],7]==4&] (* _Harvey P. Dale_, Sep 21 2019 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|