OFFSET
1,1
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..274
Leo Moser, Digits of Powers, Recreational Mathematics, Curiosa 145. Scripta Mathematica Vol. XIII, March-June 1947, Nos. 1-2, page 117.
FORMULA
a(n) = Min{ x; x=SumDigit(x)^n} = Min{x; x=A007953(x)^n}
a(n) = A046017(n)^n. - Michael De Vlieger, Nov 05 2020
EXAMPLE
a(1) = 2 > 1;
a(9) = 3904305912313344 = 54^9 = (3+9+0+4+3+0+5+9+1+2+3+1+3+3+4+4)^9.
MATHEMATICA
Array[Block[{k = 2}, While[k^# != Total[IntegerDigits[k^#]]^#, k++]; k^#] &, 13] (* Michael De Vlieger, Nov 05 2020 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Labos Elemer, Jun 17 2002
STATUS
approved