A031499 Numbers whose base-10 representation has one fewer 0 than 9's.

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

Links

Table of n, a(n) for n=1..50.

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

Adjacent sequences: A031496 A031497 A031498 * A031500 A031501 A031502

Keyword

nonn,base

Author

Clark Kimberling

Status

approved