A115353 The mode of the digits of n (using smallest mode if multimodal).

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 2, 2, 2, 2, 2, 2, 2, 2, 0, 1, 2, 3, 3, 3, 3, 3, 3, 3, 0, 1, 2, 3, 4, 4, 4, 4, 4, 4, 0, 1, 2, 3, 4, 5, 5, 5, 5, 5, 0, 1, 2, 3, 4, 5, 6, 6, 6, 6, 0, 1, 2, 3, 4, 5, 6, 7, 7, 7, 0, 1, 2, 3, 4, 5, 6, 7, 8, 8, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 1, 0, 0, 0

Offset

0,3

Comments

a(101)=1 and A054054(101)=0, but all previous terms are equivalent.

Links

Bence Bernáth, Table of n, a(n) for n = 0..10000

Example

a(12)=1 because 1, 2, the digits of 12, each occur the same number of times and 1 is the smaller of the two modes.
a(101)=1 because 1 is the unique mode of 1, 0, 1 (occurring twice while 0 appears only once).

Mathematica

a[n_] := Min[Commonest[IntegerDigits[n]]]; Array[a, 105, 0] (* Stefano Spezia, Jan 08 2023 *)

Prog

(MATLAB)
function nth_term=A115353(n)
     nth_term=mode((num2str(n)-'0'));
end
sequence = arrayfun(@A115353, linspace(0, 105, 106))
% Bence Bernáth, Jan 06 2023
(Python)
from statistics import mode
def a(n): return int(mode(sorted(str(n))))
print([a(n) for n in range(105)]) # Michael S. Branicky, Jan 08 2023

Crossrefs

Cf. A054054 (Smallest digit of n).

Sequence in context: A085124 A252648 A054054 * A031298 A004428 A004429

Adjacent sequences: A115350 A115351 A115352 * A115354 A115355 A115356

Keyword

base,nonn

Author

Rick L. Shepherd, Jan 21 2006

Status

approved