A117280 a(n) = n^r(n), where r(n) is the digital root of n.

1, 1, 4, 27, 256, 3125, 46656, 823543, 16777216, 387420489, 10, 121, 1728, 28561, 537824, 11390625, 268435456, 6975757441, 198359290368, 19, 400, 9261, 234256, 6436343, 191102976, 6103515625, 208827064576, 7625597484987, 28, 841, 27000, 923521, 33554432

Offset

0,3

Links

Table of n, a(n) for n=0..32.

Formula

a(n) = n^r(n).

for n>0, a(n) = n^(((n-1) mod 9)+1).

Example

a(13)=13^r(13)=13^4=28561.

Maple

[1, seq(n^(((n-1) mod 9)+1), n=1..30)]; # Georg Fischer, Sep 11 2024

Mathematica

Join[{1}, Table[n^(Mod[n-1, 9]+1), {n, 32}]] (* James C. McMahon, Sep 13 2024 *)

Crossrefs

Cf. A000312, A010888.

Sequence in context: A070834 A045503 A134010 * A067040 A070271 A324809

Adjacent sequences: A117277 A117278 A117279 * A117281 A117282 A117283

Keyword

base,nonn,easy,changed

Author

Luc Stevens (lms022(AT)yahoo.com), Apr 23 2006

Extensions

a(28) corrected by Georg Fischer, Sep 11 2024

Status

approved