|
%I #8 Nov 21 2013 12:47:03
%S 10,11,15,16,19,20,21,23,28,29,31,35,37,38,42,43,45,49,51,52,55,56,58,
%T 62,63,66,68,71,73,74,75,77,82,83,85,89,94,107,109,110,112,116,118,
%U 119,123,124,126,130,132,133,135,148,153,157,159
%N Numbers n such that number of runs in the base 3 representation of n is congruent to 3 mod 4.
%t Select[Range[200],Mod[Length[Split[IntegerDigits[#,3]]],4]==3&] (* _Harvey P. Dale_, Apr 20 2012 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
