login
A240520
Numbers that set a new integer record for the ratio between the product and the sum of their digits
1
1, 36, 66, 88, 257, 268, 279, 369, 459, 578, 579, 678, 789, 999, 2589, 2688, 2799, 3699, 3789, 4599, 4689, 4789, 5788, 5889, 7889, 8888, 18999, 25889, 26789, 26888, 27788, 28899, 37899, 38889, 45999, 46899, 47799, 47889, 55899, 56889, 57789, 58999, 78999, 257899
OFFSET
1,2
LINKS
Paolo P. Lava and Giovanni Resta, Table of n, a(n) for n = 1..1000 (first 100 terms from Paolo P. Lava)
EXAMPLE
For n = 2 we have 2 / 2 = 1.
For n = 36 we have 18 / 9 = 2.
For n = 66 we have 36 / 12 = 3.
For n = 88 we have 64 / 16 = 4.
Etc.
MAPLE
S:=proc(s) local j, w; w:=convert(s, base, 10); sum(w[j], j=1..nops(w)); end:
U:=proc(s) local j, w; w:=convert(s, base, 10); mul(w[j], j=1..nops(w)); end:
P:=proc(q) local a, n; a:=0;
for n from 2 to q do if type(U(n)/S(n), integer) then if U(n)/S(n)>a then
a:=U(n)/S(n); print(n); fi; fi; od; end: P(10^6);
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Paolo P. Lava, Apr 07 2014
STATUS
approved