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

0, 10, 100, 102, 120, 201, 210, 1000, 1001, 1002, 1010, 1020, 1023, 1032, 1100, 1200, 1203, 1230, 1302, 1320, 2001, 2010, 2013, 2031, 2100, 2103, 2130, 2301, 2310, 3012, 3021, 3102, 3120, 3201, 3210, 10000, 10001, 10002, 10010, 10012, 10020, 10021, 10023

Offset

1,2

Links

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

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..10230])[];  # Alois P. Heinz, Apr 01 2026

Mathematica

A394775Q[k_] := Max[Differences[RotateRight[DigitCount[k]]]] <= 0;
Select[Range[0, 15000], A394775Q] (* Paolo Xausa, Apr 08 2026 *)

Crossrefs

Cf. A072601, A072602, A370856, A370873, A394774.

Sequence in context: A342215 A342135 A169665 * A257795 A257950 A052009

Adjacent sequences: A394772 A394773 A394774 * A394776 A394777 A394778

Keyword

nonn,easy,base

Author

John Mason, Apr 01 2026

Status

approved