OFFSET
1,3
EXAMPLE
20585070^7 = 1566269305839650871270449961448347855098390430000000 and 1566269 + 3058396 + 5087127 + 0449961 + 4483478 + 5509839 + 0430000 + 000 = 20585070.
MAPLE
P:=proc(q, h) local a, b, c, d, n; print(0); for n from 1 to q do
a:=n^h; d:=ilog10(n^h)+1; c:=d-h*trunc(d/h); b:=0;
while a>0 do b:=b+(a mod 10^c); a:=trunc(a/10^c); c:=h; od;
if n=b then print(n); fi; od; end: P(10^15, 7);
CROSSREFS
KEYWORD
nonn,base,easy,fini,full
AUTHOR
Paolo P. Lava, Oct 13 2016
STATUS
approved