A004728 Delete all 9's from the sequence of nonnegative integers.

0, 1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 16, 17, 18, 1, 20, 21, 22, 23, 24, 25, 26, 27, 28, 2, 30, 31, 32, 33, 34, 35, 36, 37, 38, 3, 40, 41, 42, 43, 44, 45, 46, 47, 48, 4, 50, 51, 52, 53, 54, 55, 56, 57, 58, 5, 60, 61, 62, 63, 64, 65, 66, 67, 68, 6, 70, 71

Offset

0,3

Links

Table of n, a(n) for n=0..70.

Mathematica

Join[{0}, Table[FromDigits[IntegerDigits[n]/.(9->Nothing)], {n, 90}]/.(0-> Nothing)] (* Harvey P. Dale, Aug 10 2019 *)

Prog

(Python)
def A004728(n):
    l = len(str(n))
    m = 10**l-1
    k = n + l - int(n+l < m)
    return 8 if k == m else int(str(k).replace('9', '')) # Chai Wah Wu, Apr 20 2021

Crossrefs

Cf. A004719, A004720, A004721, A004722, A004723, A004724, A004725, A004726, A004727.

Sequence in context: A265572 A265556 A358123 * A072886 A031980 A183221

Adjacent sequences: A004725 A004726 A004727 * A004729 A004730 A004731

Keyword

base,nonn

Author

N. J. A. Sloane

Status

approved