A291266 Numbers that contain at least 3 identical digits.
111, 222, 333, 444, 555, 666, 777, 888, 999, 1000, 1011, 1101, 1110, 1111, 1112, 1113, 1114, 1115, 1116, 1117, 1118, 1119, 1121, 1131, 1141, 1151, 1161, 1171, 1181, 1191, 1211, 1222, 1311, 1333, 1411, 1444, 1511, 1555, 1611, 1666, 1711, 1777, 1811, 1888, 1911, 1999, 2000, 2022, 2111, 2122, 2202, 2212, 2220, 2221, 2222, 2223
Offset: 1
Programs
-
Mathematica
Select[Range[2500], Max[DigitCount[#]] > 2 &] (* Giovanni Resta, Aug 25 2017 *)