OFFSET
1,1
EXAMPLE
47863' = 2104 = 4^1 + 7^2 + 8^3 + 6^4 + 3^5.
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]^(nops(a)-k+1), 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