OFFSET
0,3
COMMENTS
Here 0^0 is taken to be 1. - Alonso del Arte, Sep 21 2019
LINKS
Harry J. Smith, Table of n, a(n) for n = 0..400
FORMULA
a(n) = n only when n is a power of 10. - Alonso del Arte, Sep 21 2019
EXAMPLE
a(12) = 12^(1 + 2) = 12^3 = 1728.
a(13) = 13^(1 + 3) = 13^4 = 28561.
MAPLE
a:= n-> n^add(i, i=convert(n, base, 10)):
seq(a(n), n=0..30); # Alois P. Heinz, Sep 21 2019
MATHEMATICA
Table[n^(Plus@@IntegerDigits[n]), {n, 0, 99}] (* Alonso del Arte, Sep 14 2019 *)
PROG
(PARI) SumD(x)= { local(s=0); while (x>9, s+=x%10; x\=10); return(s + x) } { for (n=0, 400, write("b067040.txt", n, " ", n^SumD(n)) ) } \\ Harry J. Smith, Apr 29 2010
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Amarnath Murthy, Dec 29 2001
EXTENSIONS
More terms from Jason Earls, Jan 18 2002
STATUS
approved