OFFSET
1,2
COMMENTS
a(12) is the last term. The sequence is finite because it can't contain numbers with more than 10 digits. Both conventions for indeterminate form 0^0, i.e., 0^0=0 and 0^0=1, lead to the same values. - Giovanni Resta, Apr 12 2016
EXAMPLE
33 is a term because 33 = 3 + 3 + 3^3.
1683552 is a term because 1683552 = (1 + 6 + 8 + 3 + 5 + 5 + 2) + (1^6 + 6^8 + 8^3 + 3^5 + 5^5 + 5^2).
MATHEMATICA
Unprotect[Power]; Power[0, 0]=1; okQ[n_]:=Block[{d = IntegerDigits[n]}, n == Plus @@ d + Plus @@ Power @@@ Partition[d, 2, 1]]; Select[Range[2*10^6], okQ] (* Giovanni Resta, Apr 12 2016 *)
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
José de Jesús Camacho Medina, Apr 09 2016
EXTENSIONS
a(12) from Giovanni Resta, Apr 12 2016
STATUS
approved