|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
A038367.
Sequence in context: A060671 A269499 A074315 * A126789 A176623 A211724
Adjacent sequences: A240517 A240518 A240519 * A240521 A240522 A240523
|
|
KEYWORD
|
nonn,easy,base
|
|
AUTHOR
|
Paolo P. Lava, Apr 07 2014
|
|
STATUS
|
approved
|
|
|
|