%I #7 Apr 10 2017 12:02:35
%S 21,37,41,43,45,53,69,73,75,77,81,83,87,89,91,93,101,105,107,109,117,
%T 133,137,139,141,145,147,151,153,155,157,161,163,167,175,177,179,183,
%U 185,187,189,197,201,203,205,209,211,215,217
%N Numbers n such that number of runs in the base 2 representation of n is congruent to 5 mod 8.
%t Select[Range[300],Mod[Length[Split[IntegerDigits[#,2]]],8]==5&] (* _Harvey P. Dale_, Apr 10 2017 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|