A240520 Numbers that set a new integer record for the ratio between the product and the sum of their digits.

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

Author

Paolo P. Lava, Apr 07 2014

Keywords

• nonn
• easy
• base

Examples

			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.
		

Links

• Paolo P. Lava and Giovanni Resta, Table of n, a(n) for n = 1..1000 (first 100 terms from Paolo P. Lava)

Crossrefs

A038367.

Programs

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