A134010 a(n) = n^(initial digit of n).

1, 1, 4, 27, 256, 3125, 46656, 823543, 16777216, 387420489, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 400, 441, 484, 529, 576, 625, 676, 729, 784, 841, 27000, 29791, 32768, 35937, 39304, 42875, 46656, 50653, 54872, 59319, 2560000, 2825761, 3111696

Offset

0,3

Comments

a(n) = n^A000030(n).

Links

R. Zumkeller, Table of n, a(n) for n = 0..10000

Mathematica

a[n_]:= n^First[IntegerDigits[n]]; Join[{1}, Array[a, 42]] (* James C. McMahon, Mar 30 2025 *)

Crossrefs

Cf. A001017, A001016, A001015, A001014, A000584, A000583, A000578, A000290, A000027.

Sequence in context: A070691 A070834 A045503 * A117280 A067040 A070271

Adjacent sequences: A134007 A134008 A134009 * A134011 A134012 A134013

Keyword

nonn,base,look

Author

Reinhard Zumkeller, Oct 02 2007

Status

approved