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 A292730 #26 Oct 06 2023 11:00:44 %S A292730 0,100,200,300,400,500,600,700,800,900,1000,2000,3000,4000,5000,6000, %T A292730 7000,8000,9000,10000,10001,10002,10003,10004,10005,10006,10007,10008, %U A292730 10009,10010,10020,10030,10040,10050,10060,10070,10080,10090,10100,10200,10300,10400,10500,10600,10700,10800,10900,11000 %N A292730 Numbers in which 0 outnumbers all other digits together. %C A292730 Subset of A292450. %C A292730 Numbers n such that A055641(n) > (A055642(n)/2). - _Felix Fröhlich_, Sep 22 2017 %C A292730 Also numbers whose median of the digits is equal to 0. - _Stefano Spezia_, Oct 04 2023 %e A292730 100 has more 0's than any other digit, whereas both 1001 and 1002 have as many other digits as 0's. %t A292730 Select[Range[0, 11000], Total@ #1 < First@ #2 & @@ TakeDrop[DigitCount@ #, 9] &] (* _Michael De Vlieger_, Sep 22 2017 *) %o A292730 (PARI) a055641(n)=if(n, n=digits(n); sum(i=2, #n, n[i]==0), 1) \\ after _Charles R Greathouse IV_ %o A292730 is(n) = a055641(n) > (#Str(n)/2) \\ _Felix Fröhlich_, Sep 22 2017 %Y A292730 Cf. A292449, A292450, A292451, A292452, A292453, A292454, A292455, A292456, A292457, A292458, A292731, A292732, A292733, A292734, A292735, A292736, A292737, A292738, A292739. %Y A292730 Cf. A055641, A055642. %K A292730 nonn,base,easy %O A292730 1,2 %A A292730 _Halfdan Skjerning_, Sep 22 2017