OFFSET
1,1
COMMENTS
a(16) <= 1001110220200020. - Giovanni Resta, Apr 07 2014
EXAMPLE
a(5) = 22011 = 3*11*23*29 because 2^5 + 2^5 + 0^5 + 1^5 + 1^5 = 3 + 11 + 23 + 29 = 66.
MATHEMATICA
Do[k=2; While[!Total[Transpose[FactorInteger[k]][[1]]]==Total[IntegerDigits[k]^n], k++]; Print[n, " ", k], {n, 1, 15}]
CROSSREFS
KEYWORD
nonn,base,hard
AUTHOR
Michel Lagneau, Apr 04 2014
STATUS
approved