%I #19 Aug 15 2023 07:42:10
%S 1,1,4,27,256,3125,46656,823543,16777216,387420489,1,11,144,2197,
%T 38416,759375,16777216,410338673,11019960576,322687697779,1,21,484,
%U 12167,331776,9765625,308915776,10460353203,377801998336,14507145975869,1,31,1024,35937,1336336
%N a(n) = n ^ (last digit of n).
%C For n<=20, a(n) = A067041(n).
%H Harvey P. Dale, <a href="/A214877/b214877.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n) = n^A010879(n). - _Michel Marcus_, Aug 15 2023
%e a(13) = 13^3 = 2197.
%t Join[{1},Table[n^Mod[n,10],{n,40}]] (* _Harvey P. Dale_, Dec 21 2020 *)
%o (Python)
%o for n in range(44):
%o print n ** (n%10),
%o (PARI) a(n) = n^(n % 10); \\ _Michel Marcus_, Aug 15 2023
%Y Cf. A010879, A063462, A067041. Different from A000312!
%K nonn,base,easy
%O 0,3
%A _Alex Ratushnyak_, Jul 29 2012
|