OFFSET
1,3
COMMENTS
Three pairs of consecutive terms: 2272725 and 2272726; 2999997 and 2999998; 3272724 and 3272725.
LINKS
Paolo P. Lava, Table of n, a(n) for n = 1..104
EXAMPLE
1208494^6 = 3115064124992224583219040254156270656 and 3 + 115064 + 124992 + 224583 + 219040 + 254156 + 270656 = 1208494.
MAPLE
P:=proc(q, h) local a, b, n;
for n from 0 to q do a:=n^h; b:=0; while a>0 do b:=b+(a mod 10^h); a:=trunc(a/10^h); od;
if n=b then print(n); fi; od; end: P(10^6, 6);
MATHEMATICA
k = 6; Select[Range[0, 10^7], Function[n, Total[FromDigits /@ Partition[PadLeft[#, Length@ # + k - Mod[Length@ #, k]], k]] == n &@ IntegerDigits[n^k]]] (* Michael De Vlieger, Jul 08 2016, after Harvey P. Dale at A037045 *)
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Paolo P. Lava, Jul 08 2016
STATUS
approved