A379180 Nonnegative integers with mode and mean of the digits equal.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 22, 33, 44, 55, 66, 77, 88, 99, 111, 222, 333, 444, 555, 666, 777, 888, 999, 1012, 1021, 1102, 1111, 1120, 1201, 1210, 1223, 1232, 1322, 1335, 1353, 1447, 1474, 1533, 1559, 1595, 1744, 1955, 2011, 2024, 2042, 2101, 2110, 2123, 2132

Offset

1,3

Links

Table of n, a(n) for n=1..54.

Example

1021 is a term since the mode and the mean of the digits are equal to 1.

Mathematica

Select[Range[0, 2200], Commonest[IntegerDigits[#]] == {Mean[IntegerDigits[#]]} &]

Crossrefs

Cf. A115353, A378560, A378835, A379181.

Sequence in context: A160818 A244514 A082810 * A344550 A010785 A343524

Adjacent sequences: A379177 A379178 A379179 * A379181 A379182 A379183

Keyword

nonn,base,easy

Author

Stefano Spezia, Dec 17 2024

Status

approved