%I #6 Aug 28 2012 18:27:59
%S 68,70,71,72,73,75,76,77,78,97,98,99,100,102,103,108,109,110,113,114,
%T 115,116,118,119,120,121,123,132,134,135,136,137,139,140,141,142,145,
%U 146,147,152,153,155,156,157,158,177,178,179
%N Number of runs in the base 4 representation of n is congruent to 4 mod 7.
%t Select[Range[200],Mod[Length[Split[IntegerDigits[#,4]]],7]==4&] (* _Harvey P. Dale_, Aug 28 2012 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|