A292736 - OEIS

%I #16 Sep 24 2017 16:06:12

%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,1666,2666,3666,4666,5666,

%U 6066,6166,6266,6366,6466,6566,6606,6616,6626,6636,6646,6656,6660,6661,6662,6663,6664,6665,6666,6667,6668,6669,6676,6686

%N Numbers in which 6 outnumbers all other digits together.

%C Subset of A292456.

%H Robert Israel, <a href="/A292736/b292736.txt">Table of n, a(n) for n = 1..10000</a>

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

%p F:= proc(d) local s, m, T;

%p   s:= 6*(10^d-1)/9;

%p   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));

%p   op(sort(convert(T,list)))

%p end proc:

%p G:= proc(c,k) local L,m,j;

%p       m:= nops(c);

%p       L:= convert(10^m+k,base,10);

%p       add((L[j]-6)*10^c[j], j=1..m)

%p end proc:

%p seq(F(d),d=1..4); # _Robert Israel_, Sep 24 2017

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

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

%K nonn,base,look,easy

%O 1,1

%A _Halfdan Skjerning_, Sep 22 2017