%I #10 Jul 04 2021 15:53:44
%S 5,11,17,23,29,31,32,33,34,47,53,59,65,67,68,69,70,83,89,95,101,103,
%T 104,105,106,119,125,131,137,139,140,141,142,155,161,167,173,175,176,
%U 177,178,185,187,188,189,190,193,194,195,196,199
%N Numbers whose base-6 representation has one fewer 0 than 5's.
%t Select[Range[300],DigitCount[#,6,0]+1==DigitCount[#,6,5]&] (* _Harvey P. Dale_, Jan 13 2015 *)
%Y Cf. A007092.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|