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

Author

Halfdan Skjerning, Sep 22 2017

Keywords

• nonn
• base
• look
• easy

Comments

Subset of A292456.

Examples

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

Links

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

Crossrefs

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

Programs

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