A292456 Numbers where 6 outnumbers any other digit.

6, 66, 166, 266, 366, 466, 566, 606, 616, 626, 636, 646, 656, 660, 661, 662, 663, 664, 665, 666, 667, 668, 669, 676, 686, 696, 766, 866, 966, 1066, 1266, 1366, 1466, 1566, 1606, 1626, 1636, 1646, 1656, 1660, 1662, 1663, 1664, 1665, 1666

Offset: 1

Author

Halfdan Skjerning, Sep 18 2017

Keywords

• nonn
• base

Examples

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

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

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

Programs

Mathematica

Select[Range[0, 1700], Max@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 6] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 18 2017 *)
n6Q[n_]:=Module[{dc=DigitCount[n]},dc[[6]]>Max[Drop[dc,{6}]]]; Select[ Range[ 2000],n6Q] (* Harvey P. Dale, Feb 19 2018 *)

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