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