%I #6 Dec 08 2018 19:20:15
%S 170,298,330,338,340,342,346,362,426,554,586,594,596,598,602,618,650,
%T 658,660,662,666,674,676,678,680,684,686,690,692,694,698,714,722,724,
%U 726,730,746,810,842,850,852,854,858,874,938
%N Number of runs in the base 2 representation of n is congruent to 0 mod 8.
%t Select[Range[1000],Mod[Length[Split[IntegerDigits[#,2]]],8]==0&] (* _Harvey P. Dale_, Dec 08 2018 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|