OFFSET
1,2
EXAMPLE
73440^5 = 2136305413264402022400000 and 21363 + 05413 + 26440 + 20224 + 00000 = 73440.
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, 5);
CROSSREFS
KEYWORD
nonn,base,easy,fini,full
AUTHOR
Paolo P. Lava, Oct 13 2016
STATUS
approved