A067040 a(n) = n^(sum of digits of n).

1, 1, 4, 27, 256, 3125, 46656, 823543, 16777216, 387420489, 10, 121, 1728, 28561, 537824, 11390625, 268435456, 6975757441, 198359290368, 6131066257801, 400, 9261, 234256, 6436343, 191102976, 6103515625, 208827064576, 7625597484987

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

Cf. A007953.

Sequence in context: A045503 A134010 A117280 * A070271 A324809 A245414

Adjacent sequences: A067037 A067038 A067039 * A067041 A067042 A067043

Keyword

nonn,base,easy

Author

Amarnath Murthy, Dec 29 2001

Extensions

More terms from Jason Earls, Jan 18 2002

Status

approved