|
%I #11 Oct 04 2023 23:44:19
%S 2,4,6,8,12,14,16,24,28,30,32,48,56,60,62,64,96,112,120,124,126,128,
%T 170,192,224,240,248,252,254,256,298,330,338,340,342,346,362,384,426,
%U 448,480,496,504,508,510,512,554,586,594,596,598
%N Numbers whose number of runs in the base-2 representation is congruent to 2 mod 6.
%t Select[Range[600],Mod[Length[Split[IntegerDigits[#,2]]],6]==2&] (* _Harvey P. Dale_, Apr 01 2012 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
