login
A255012
Values of n for which A254596(n) = 4.
1
3, 730, 731, 631530, 631531, 832122, 832123, 15250123, 53223051, 53263050, 53263051, 154121931, 174700251, 191805131, 200061659, 430750411, 455521003, 456042200, 456042201, 456042202, 456042203, 456043210, 456043211, 456110811, 460301002, 460301003
OFFSET
1,1
COMMENTS
Convert number, n, to the bases, b, 2 through 10. Find the minimum base, b, that yields the greatest sum of the digits. This sequence lists numbers for which that base is 4.
LINKS
Paolo P. Lava and Robert G. Wilson v, Table of n, a(n) for n = 1..55
EXAMPLE
1011011011_2 = 1000002_3 = 23123_4 = 10411_5 = 3215_6 = 2063_7 = 1333_8 = 1002_9 = 731_10 and their respective sum of the digits is 7, 3, 11, 7, 11, 11, 10, 3, 11. Since the maximum sum of the digits is 11 which first occurs for base 4; 731 is in the sequence.
MAPLE
with(numtheory): P:=proc(q) local a, b, c, d, j, k, n; for n from 1 to q do c:=0;
for k from 2 to 10 do a:=convert(n, base, k); b:=add(a[j], j=1..nops(a)); if b>c then c:=b; d:=k;
fi; od; if d=4 then print(n); fi; od; end: P(10^10); # Paolo P. Lava, Feb 13 2015
MATHEMATICA
f[n_] := Block[{a = Plus @@@ IntegerDigits[n, {2, 3, 4, 5, 6, 7, 8, 9, 10}]}, 1 + Position[a, Max@ a][[1, 1]]]; k = 1; lst = {}; While[k < 2550000001, If[ f@ k == 4, AppendTo[lst, k]]; k++]; lst
CROSSREFS
Cf. A254596.
Sequence in context: A059120 A300947 A013826 * A133014 A100407 A332173
KEYWORD
nonn,base
AUTHOR
STATUS
approved