A292730 Numbers in which 0 outnumbers all other digits together.

0, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000, 2000, 3000, 4000, 5000, 6000, 7000, 8000, 9000, 10000, 10001, 10002, 10003, 10004, 10005, 10006, 10007, 10008, 10009, 10010, 10020, 10030, 10040, 10050, 10060, 10070, 10080, 10090, 10100, 10200, 10300, 10400, 10500, 10600, 10700, 10800, 10900, 11000

Offset

1,2

Comments

Subset of A292450.

Numbers n such that A055641(n) > (A055642(n)/2). - Felix Fröhlich, Sep 22 2017

Also numbers whose median of the digits is equal to 0. - Stefano Spezia, Oct 04 2023

Links

Table of n, a(n) for n=1..48.

Example

100 has more 0's than any other digit, whereas both 1001 and 1002 have as many other digits as 0's.

Mathematica

Select[Range[0, 11000], Total@ #1 < First@ #2 & @@ TakeDrop[DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 22 2017 *)

Prog

(PARI) a055641(n)=if(n, n=digits(n); sum(i=2, #n, n[i]==0), 1) \\ after Charles R Greathouse IV
is(n) = a055641(n) > (#Str(n)/2) \\ Felix Fröhlich, Sep 22 2017

Crossrefs

Cf. A292449, A292450, A292451, A292452, A292453, A292454, A292455, A292456, A292457, A292458, A292731, A292732, A292733, A292734, A292735, A292736, A292737, A292738, A292739.

Cf. A055641, A055642.

Sequence in context: A292450 A044332 A166731 * A043490 A218037 A044713

Adjacent sequences: A292727 A292728 A292729 * A292731 A292732 A292733

Keyword

nonn,base,easy

Author

Halfdan Skjerning, Sep 22 2017

Status

approved