The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #20 Dec 09 2020 21:15:12
%S 4,44,144,244,344,404,414,424,434,440,441,442,443,444,445,446,447,448,
%T 449,454,464,474,484,494,544,644,744,844,944,1044,1244,1344,1404,1424,
%U 1434,1440,1442,1443,1444,1445,1446,1447,1448,1449,1454,1464,1474,1484,1494
%N Numbers where 4 outnumbers any other digit.
%e 404 has more 4's than any other digit, whereas 4004 has as many 0's as 4's.
%t Select[Range[0, 2000], Max@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 4] &@ DigitCount@ #, 9] &] (* _Michael De Vlieger_, Sep 16 2017 *)
%Y Cf. A292449, A292450, A292451, A292452, A292453, A292455, A292456, A292457, A292458.
%K nonn,base,easy
%O 1,1
%A _Halfdan Skjerning_, Sep 16 2017
%E More terms from _Michael De Vlieger_, Sep 16 2017