A292454 Numbers where 4 outnumbers any other digit.

4, 44, 144, 244, 344, 404, 414, 424, 434, 440, 441, 442, 443, 444, 445, 446, 447, 448, 449, 454, 464, 474, 484, 494, 544, 644, 744, 844, 944, 1044, 1244, 1344, 1404, 1424, 1434, 1440, 1442, 1443, 1444, 1445, 1446, 1447, 1448, 1449, 1454, 1464, 1474, 1484, 1494

Offset

1,1

Links

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

Example

404 has more 4's than any other digit, whereas 4004 has as many 0's as 4's.

Mathematica

Select[Range[0, 2000], Max@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 4] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 16 2017 *)

Crossrefs

Cf. A292449, A292450, A292451, A292452, A292453, A292455, A292456, A292457, A292458.

Sequence in context: A071125 A193448 A200456 * A292734 A053314 A051223

Adjacent sequences: A292451 A292452 A292453 * A292455 A292456 A292457

Keyword

nonn,base,easy

Author

Halfdan Skjerning, Sep 16 2017

Extensions

More terms from Michael De Vlieger, Sep 16 2017

Status

approved