%I #7 Dec 25 2018 14:47:17
%S 5,9,11,13,17,19,23,25,27,29,33,35,39,47,49,51,55,57,59,61,65,67,71,
%T 79,95,97,99,103,111,113,115,119,121,123,125,129,131,135,143,159,191,
%U 193,195,199,207,223,225,227,231,239,241,243,247
%N Numbers n such that number of runs in the base 2 representation of n is congruent to 3 mod 8.
%t Select[Range[300],Mod[Length[Split[IntegerDigits[#,2]]],8]==3&] (* _Harvey P. Dale_, Dec 25 2018 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|