A394774 - OEIS

%I #20 Apr 08 2026 18:41:56

%S 9,89,98,99,789,798,879,897,899,978,987,989,998,999,6789,6798,6879,

%T 6897,6978,6987,7689,7698,7869,7896,7899,7968,7986,7989,7998,8679,

%U 8697,8769,8796,8799,8899,8967,8976,8979,8989,8997,8998,8999,9678,9687,9768,9786

%N 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.

%H Alois P. Heinz, <a href="/A394774/b394774.txt">Table of n, a(n) for n = 1..13390</a>

%p q:= n-> (p-> andmap(d-> coeff(p, x, d-1)<=coeff(p, x, d),

%p              [$1..9]))(add(x^i, i=convert(n, base, 10))):

%p select(q, [$0..9889])[];  # _Alois P. Heinz_, Apr 01 2026

%t A394774Q[k_] := Min[Differences[RotateRight[DigitCount[k]]]] >= 0;

%t Select[Range[10000], A394774Q] (* _Paolo Xausa_, Apr 08 2026 *)

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

%K nonn,easy,base

%O 1,1

%A _John Mason_, Apr 01 2026