login
Numbers whose base-9 representation has one fewer 0 than 8's.
0

%I #9 Jul 04 2021 18:05:23

%S 8,17,26,35,44,53,62,71,73,74,75,76,77,78,79,98,107,116,125,134,143,

%T 152,154,155,156,157,158,159,160,179,188,197,206,215,224,233,235,236,

%U 237,238,239,240,241,260,269,278,287,296,305,314

%N Numbers whose base-9 representation has one fewer 0 than 8's.

%t Select[Range@400,(s=#;Differences[Count[IntegerDigits[s,9],#]&/@{0,8}]=={1})&] (* _Giorgos Kalogeropoulos_, Jul 04 2021 *)

%Y Cf. A007095.

%K nonn,base

%O 1,1

%A _Clark Kimberling_