A394774 Numbers that have a base 10 representation in which, for any digit d (1 <= d <= 9), the number of occurrences of d is not less than the number of occurrences of d-1.

9, 89, 98, 99, 789, 798, 879, 897, 899, 978, 987, 989, 998, 999, 6789, 6798, 6879, 6897, 6978, 6987, 7689, 7698, 7869, 7896, 7899, 7968, 7986, 7989, 7998, 8679, 8697, 8769, 8796, 8799, 8899, 8967, 8976, 8979, 8989, 8997, 8998, 8999, 9678, 9687, 9768, 9786

Offset

1,1

Links

Alois P. Heinz, Table of n, a(n) for n = 1..13390

Maple

q:= n-> (p-> andmap(d-> coeff(p, x, d-1)<=coeff(p, x, d),
             [$1..9]))(add(x^i, i=convert(n, base, 10))):
select(q, [$0..9889])[];  # Alois P. Heinz, Apr 01 2026

Mathematica

A394774Q[k_] := Min[Differences[RotateRight[DigitCount[k]]]] >= 0;
Select[Range[10000], A394774Q] (* Paolo Xausa, Apr 08 2026 *)

Crossrefs

Cf. A072601, A072602, A370856, A370873, A394775.

Sequence in context: A376145 A279166 A147884 * A178369 A328492 A306686

Adjacent sequences: A394771 A394772 A394773 * A394775 A394776 A394777

Keyword

nonn,easy,base

Author

John Mason, Apr 01 2026

Status

approved