OFFSET
1,2
COMMENTS
The corresponding sum values are 1, 2, 3, 5, 6, 7, 10, 13, 16, 17, 20, 21, 22, 23, 25, 26, 27, 31, 33, 37
MAPLE
P:=proc(q) local a, b, c, k, ok, t; global n; t:=0; for n from 1 to q do ok:=1; a:=n;
for k from 1 to ilog10(n)+1 do if (a mod 10)=0 then ok:=0; break; else a:=trunc(a/10); fi; od;
if ok=1 then a:=0; b:=n;
for k from 1 to ilog10(n) do c:=b mod 10; b:=trunc(b/10); a:=a+c/(b mod 10); od;
b:=a+trunc(n/10^ilog10(n))/(n mod 10);
if type(b, integer) and b>t then t:=b; print(n); fi; fi; od; end: P(10^9);
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Paolo P. Lava, Feb 17 2016
STATUS
approved