|
%I #9 Jul 04 2021 18:08:08
%S 100,200,300,400,500,600,700,800,1001,1002,1003,1004,1005,1006,1007,
%T 1008,1010,1020,1030,1040,1050,1060,1070,1080,1100,1200,1300,1400,
%U 1500,1600,1700,1800,2001,2002,2003,2004,2005,2006
%N Numbers whose base-10 representation has 2 more 0's than 9's.
%t Select[Range@3000,(s=#;Differences[Count[IntegerDigits[s],#]&/@{0,9}]=={-2})&] (* _Giorgos Kalogeropoulos_, Jul 04 2021 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
