|
%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_
|
