login
A031499
Numbers whose base-10 representation has one fewer 0 than 9's.
0
9, 19, 29, 39, 49, 59, 69, 79, 89, 91, 92, 93, 94, 95, 96, 97, 98, 119, 129, 139, 149, 159, 169, 179, 189, 191, 192, 193, 194, 195, 196, 197, 198, 219, 229, 239, 249, 259, 269, 279, 289, 291, 292, 293, 294, 295, 296, 297, 298, 319
OFFSET
1,1
MATHEMATICA
Select[Range@400, (s=#; Differences[Count[IntegerDigits[s], #]&/@{0, 9}]=={1})&] (* Giorgos Kalogeropoulos, Jul 04 2021 *)
Select[Range[400], DigitCount[#, 10, 0]+1==DigitCount[#, 10, 9]&] (* Harvey P. Dale, Feb 06 2023 *)
CROSSREFS
Sequence in context: A088479 A043525 A277596 * A017377 A363060 A330171
KEYWORD
nonn,base
STATUS
approved