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