login
Numbers whose base-7 representation has one fewer 0 than 6's.
0

%I #9 Sep 07 2023 14:02:22

%S 6,13,20,27,34,41,43,44,45,46,47,62,69,76,83,90,92,93,94,95,96,111,

%T 118,125,132,139,141,142,143,144,145,160,167,174,181,188,190,191,192,

%U 193,194,209,216,223,230,237,239,240,241,242,243

%N Numbers whose base-7 representation has one fewer 0 than 6's.

%t Select[Range[250],DigitCount[#,7,0]+1==DigitCount[#,7,6]&] (* _Harvey P. Dale_, Sep 07 2023 *)

%Y Cf. A007093.

%K nonn,base

%O 1,1

%A _Clark Kimberling_