|
|
A292736
|
|
Numbers in which 6 outnumbers all other digits together.
|
|
10
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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:
|
|
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.
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|