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