A292736 Numbers in which 6 outnumbers all other digits together.

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, 1666, 2666, 3666, 4666, 5666, 6066, 6166, 6266, 6366, 6466, 6566, 6606, 6616, 6626, 6636, 6646, 6656, 6660, 6661, 6662, 6663, 6664, 6665, 6666, 6667, 6668, 6669, 6676, 6686

Offset

1,1

Comments

Subset of A292456.

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Example

606 has more 6's than any other digit, whereas both 6006 and 6016 have as many other digits as 6's.

Maple

F:= proc(d) local s, m, T;
  s:= 6*(10^d-1)/9;
  T:= select(`>=`, {seq(seq(seq(s+G(c, k), k = 0 .. 10^m-1), c = combinat:-choose([$0..d-1], m)), m=0 .. floor((d-1)/2))}, 10^(d-1));
  op(sort(convert(T, list)))
end proc:
G:= proc(c, k) local L, m, j;
      m:= nops(c);
      L:= convert(10^m+k, base, 10);
      add((L[j]-6)*10^c[j], j=1..m)
end proc:
seq(F(d), d=1..4); # Robert Israel, Sep 24 2017

Mathematica

Select[Range[0, 6700], Total@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 6] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 22 2017 *)

Crossrefs

Cf. A292449, A292450, A292451, A292452, A292453, A292454, A292455, A292456, A292457, A292458, A292730, A292731, A292732, A292733, A292734, A292735, A292737, A292738, A292739.

Sequence in context: A117794 A101011 A292456 * A119140 A085025 A048537

Adjacent sequences: A292733 A292734 A292735 * A292737 A292738 A292739

Keyword

nonn,base,look,easy

Author

Halfdan Skjerning, Sep 22 2017

Status

approved