login
Numbers whose base-5 representation has one more 0 than 4's.
0

%I #10 Jul 04 2021 17:41:42

%S 5,10,15,26,27,28,30,35,40,51,52,53,55,60,65,76,77,78,80,85,90,100,

%T 129,131,132,133,136,137,138,141,142,143,145,151,152,153,155,160,165,

%U 176,177,178,180,185,190,201,202,203,205,210,215

%N Numbers whose base-5 representation has one more 0 than 4's.

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

%Y Cf. A007091.

%K nonn,base

%O 1,1

%A _Clark Kimberling_