%I #11 Oct 06 2023 03:28:49
%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 whose number of runs in the base-2 representation is congruent to 5 mod 7.
%t Select[Range[300],Mod[Length[Split[IntegerDigits[#,2]]],7]==5&] (* _Harvey P. Dale_, Jul 08 2023 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|