OFFSET
1,1
EXAMPLE
766' = 385 = 7^3 + 6^2 + 6^1.
MAPLE
with(numtheory): P:=proc(q) local a, k, n, p; for n from 1 to q do a:=convert(n, base, 10);
if add(a[k]^k, k=1..nops(a))=n*add(op(2, p)/op(1, p), p=ifactors(n)[2])
then print(n); fi; od; end: P(10^9);
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Paolo P. Lava, Apr 07 2017
STATUS
approved