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 A292733 #19 Jun 17 2025 19:39:11 %S A292733 3,33,133,233,303,313,323,330,331,332,333,334,335,336,337,338,339,343, %T A292733 353,363,373,383,393,433,533,633,733,833,933,1333,2333,3033,3133,3233, %U A292733 3303,3313,3323,3330,3331,3332,3333,3334,3335,3336,3337,3338,3339,3343,3353,3363,3373,3383,3393,3433,3533,3633,3733,3833,3933,4333,5333,6333,7333,8333 %N A292733 Numbers in which 3 outnumbers all other digits together. %C A292733 Subset of A292453. %H A292733 Harvey P. Dale, <a href="/A292733/b292733.txt">Table of n, a(n) for n = 1..1000</a> %e A292733 303 has more 3's than any other digit, whereas both 3003 and 3013 have as many other digits as 3's. %t A292733 Select[Range[0, 9000], Total@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 3] &@ DigitCount@ #, 9] &] (* _Michael De Vlieger_, Sep 22 2017 *) %t A292733 Select[Range[9000],DigitCount[#,10,3]>IntegerLength[#]/2&] (* _Harvey P. Dale_, Jun 17 2025 *) %Y A292733 Cf. A292449, A292450, A292451, A292452, A292453, A292454, A292455, A292456, A292457, A292458, A292730, A292731, A292732, A292734, A292735, A292736, A292737, A292738, A292739. %K A292733 nonn,base,easy %O A292733 1,1 %A A292733 _Halfdan Skjerning_, Sep 22 2017 %E A292733 a(48) and following corrected by _Georg Fischer_, Dec 22 2022