This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A292453 #22 Dec 09 2020 21:14:59
%S A292453 3,33,133,233,303,313,323,330,331,332,333,334,335,336,337,338,339,343,
%T A292453 353,363,373,383,393,433,533,633,733,833,933,1033,1233,1303,1323,1330,
%U A292453 1332,1333,1334,1335,1336,1337,1338,1339,1343,1353,1363,1373,1383,1393
%N A292453 Numbers where 3 outnumbers any other digit.
%e A292453 303 has more 3's than any other digit, whereas 3003 has as many 0's as 3's.
%t A292453 Select[Range[0, 2000], Max@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 3] &@ DigitCount@ #, 9] &] (* _Michael De Vlieger_, Sep 16 2017 *)
%t A292453 n3oQ[n_]:=Module[{dc=DigitCount[n]},Max[dc]==dc[[3]]&&Count[dc,dc[[3]]] == 1]; Select[Range[3000],n3oQ] (* _Harvey P. Dale_, Oct 07 2018 *)
%Y A292453 Cf. A292449, A292450, A292451, A292452, A292454, A292455, A292456, A292457, A292458.
%K A292453 nonn,base,easy
%O A292453 1,1
%A A292453 _Halfdan Skjerning_, Sep 16 2017
%E A292453 Corrected by _Harvey P. Dale_, Oct 07 2018