login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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
Subset of A292456.
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:
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
Sequence in context: A117794 A101011 A292456 * A119140 A085025 A048537
KEYWORD
nonn,base,look,easy
AUTHOR
Halfdan Skjerning, Sep 22 2017
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 06:57 EDT 2024. Contains 371265 sequences. (Running on oeis4.)