|
%I #7 Jan 19 2013 20:48:55
%S 30,32,33,34,46,47,48,50,57,59,60,61,64,65,69,70,84,86,87,88,90,93,95,
%T 98,99,103,105,106,111,113,114,115,127,128,129,131,136,137,139,143,
%U 144,147,149,152,154,155,156,158,165,167,168,169
%N Numbers n such that number of runs in the base 3 representation of n is congruent to 4 mod 6.
%t Select[Range[200],Mod[Length[Split[IntegerDigits[#,3]]],6]==4&] (* _Harvey P. Dale_, Jan 19 2013 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
