|
%I
%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 n such that number of runs in the base 2 representation of n 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_
|
