|
%I #10 Oct 04 2023 23:44:31
%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 5.
%t Select[Range[300],Mod[Length[Split[IntegerDigits[#,2]]],5]==4&] (* _Harvey P. Dale_, Nov 14 2018 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
