%I #50 Sep 08 2022 08:46:01
%S 1,1,1,0,1,2,0,1,1,0,1,2,0,1,1,0,1,2,0,1,1,0,1,2,0,1,1,0,1,2,0,1,1,0,
%T 1,2,0,1,1,0,1,2,0,1,1,0,1,2,0,1,1,0,1,2,0,1,1,0,1,2,0,1,1,0,1,2,0,1,
%U 1,0,1,2,0,1,1,0,1,2,0,1,1,0,1,2,0,1,1
%N a(n) = n^n (mod 3).
%C For n>0, a(n) is periodic with period 6: repeat [1, 1, 0, 1, 2, 0].
%C Decimal expansion of 1110119/9999990. - _David A. Corneth_, Jun 28 2016
%H José María Grau and Antonio M. Oller-Marcén, <a href="http://arxiv.org/abs/1203.4066">On the last digit and the last non-zero digit of n^n in base b</a>, arXiv preprint arXiv:1203.4066 [math.NT], 2012.
%H <a href="/index/Rec#order_06">Index entries for linear recurrences with constant coefficients</a>, signature (0,0,0,0,0,1).
%F G.f.: (1+x+x^2+x^4+2*x^5-x^6) / (1-x^6). - _Bruno Berselli_, Jan 18 2012
%F From _Wesley Ivan Hurt_, Jun 28 2016: (Start)
%F a(n) = a(n-6) for n>6.
%F a(n) = sin(n*Pi/3) * (10*sin(n*Pi/3) + 2*sin(2*n*Pi/3) - sqrt(3) - 2*sqrt(3)*cos(n*Pi/3))/6 for n>0. (End)
%F a(n) = A010872(A000312(n)). - _Michel Marcus_, Jun 28 2016
%p A204688:=n->power(n,n) mod 3: 1, seq(A204688(n), n=1..100); # _Wesley Ivan Hurt_, Jun 28 2016
%t Table[PowerMod[n,n,3], {n,0,140}]
%o (Magma) [1] cat [Modexp(n, n, 3): n in [1..100]]; // _Wesley Ivan Hurt_, Jun 28 2016
%Y Cf. A000312, A010872, A174824.
%K nonn,easy
%O 0,6
%A _José María Grau Ribas_, Jan 18 2012