%I #22 Dec 09 2020 21:14:59
%S 3,33,133,233,303,313,323,330,331,332,333,334,335,336,337,338,339,343,
%T 353,363,373,383,393,433,533,633,733,833,933,1033,1233,1303,1323,1330,
%U 1332,1333,1334,1335,1336,1337,1338,1339,1343,1353,1363,1373,1383,1393
%N Numbers where 3 outnumbers any other digit.
%e 303 has more 3's than any other digit, whereas 3003 has as many 0's as 3's.
%t Select[Range[0, 2000], Max@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 3] &@ DigitCount@ #, 9] &] (* _Michael De Vlieger_, Sep 16 2017 *)
%t n3oQ[n_]:=Module[{dc=DigitCount[n]},Max[dc]==dc[[3]]&&Count[dc,dc[[3]]] == 1]; Select[Range[3000],n3oQ] (* _Harvey P. Dale_, Oct 07 2018 *)
%Y Cf. A292449, A292450, A292451, A292452, A292454, A292455, A292456, A292457, A292458.
%K nonn,base,easy
%O 1,1
%A _Halfdan Skjerning_, Sep 16 2017
%E Corrected by _Harvey P. Dale_, Oct 07 2018
|