|
%I
%S 81,162,243,324,405,486,567,730,731,732,733,734,735,736,738,747,756,
%T 765,774,783,792,810,891,972,1053
%N Numbers whose base-9 representation has 2 more 0's than 8's.
%t Select[Range@2000,(s=#;Differences[Count[IntegerDigits[s,9],#]&/@{0,8}]=={-2})&] (* _Giorgos Kalogeropoulos_, Jul 04 2021 *)
%Y Cf. A007095.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
