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,1

Links

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

Example

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

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 *)

Prog

(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

Crossrefs

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

Sequence in context: A153087 A117794 A101011 * A292736 A119140 A085025

Adjacent sequences: A292453 A292454 A292455 * A292457 A292458 A292459

Keyword

nonn,base

Author

Halfdan Skjerning, Sep 18 2017

Status

approved