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 A292734 #13 Nov 19 2019 17:10:49 %S A292734 4,44,144,244,344,404,414,424,434,440,441,442,443,444,445,446,447,448, %T A292734 449,454,464,474,484,494,544,644,744,844,944,1444,2444,3444,4044,4144, %U A292734 4244,4344,4404,4414,4424,4434,4440,4441,4442,4443,4444,4445,4446,4447,4448,4449,4454,4464,4474,4484,4494,4544,4644,4744 %N A292734 Numbers in which 4 outnumbers all other digits together. %C A292734 Subset of A292454. %e A292734 404 has more 4's than any other digit, whereas both 4004 and 4014 have as many other digits as 4's. %t A292734 Select[Range[0, 4500], Total@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 4] &@ DigitCount@ #, 9] &] (* _Michael De Vlieger_, Sep 22 2017 *) %t A292734 Select[Range[5000],DigitCount[#,10,4]>IntegerLength[#]/2&] (* _Harvey P. Dale_, Nov 19 2019 *) %Y A292734 Cf. A292449, A292450, A292451, A292452, A292453, A292454, A292455, A292456, A292457, A292458, A292730, A292731, A292732, A292733, A292735, A292736, A292737, A292738, A292739. %K A292734 nonn,base,easy %O A292734 1,1 %A A292734 _Halfdan Skjerning_, Sep 22 2017