A292456 - OEIS

%I #21 Apr 06 2020 18:23:14

%S 6,66,166,266,366,466,566,606,616,626,636,646,656,660,661,662,663,664,

%T 665,666,667,668,669,676,686,696,766,866,966,1066,1266,1366,1466,1566,

%U 1606,1626,1636,1646,1656,1660,1662,1663,1664,1665,1666

%N Numbers where 6 outnumbers any other digit.

%H Harvey P. Dale, <a href="/A292456/b292456.txt">Table of n, a(n) for n = 1..1000</a>

%e 606 has more 6's than any other digit, whereas 6006 has as many 0's as 6's.

%t Select[Range[0, 1700], Max@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 6] &@ DigitCount@ #, 9] &] (* _Michael De Vlieger_, Sep 18 2017 *)

%t n6Q[n_]:=Module[{dc=DigitCount[n]},dc[[6]]>Max[Drop[dc,{6}]]]; Select[ Range[ 2000],n6Q] (* _Harvey P. Dale_, Feb 19 2018 *)

%o (PARI) isok(n) = {d = digits(n); v = vector(10, n, #select(x->x==(n-1), d)); for (k=1, #v, if ((k != 7) && (v[k] >= v[7]), return(0));); return(1);} \\ _Michel Marcus_, Sep 21 2017

%Y Cf. A292449, A292450, A292451, A292452, A292453, A292454, A292455, A292457, A292458.

%K nonn,base

%O 1,1

%A _Halfdan Skjerning_, Sep 18 2017