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
Examples
1021 is a term since the mode and the mean of the digits are equal to 1.
Programs
-
Mathematica
Select[Range[0,2200], Commonest[IntegerDigits[#]] == {Mean[IntegerDigits[#]]} &]