%I #18 Jan 30 2021 15:14:16
%S 1,1,4,3,4,2,1,7,1,1,1,5,1,4,7,6,7,8,1,1,4,3,4,2,1,7,1,3,1,5,1,4,7,6,
%T 7,8,1,1,4,3,4,2,1,7,1,8,1,5,1,4,7,6,7,8,1,1,4,3,4,2,1,7,1,1,1,5,1,4,
%U 7,6,7,8,1,1,4,3,4,2,1,7,1,1,1,5,1
%N Final nonzero digit of n^n in base 9.
%H Harvey P. Dale, <a href="/A204819/b204819.txt">Table of n, a(n) for n = 0..1000</a>
%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.
%t f[0]=1;f[n_]:=Module[{m=n^n},While[Mod[m,9]==0,m=m/9];Mod[m,9]];y=Table[f[i],{i,0,100}]
%t Join[{1},Mod[#/10^IntegerExponent[#],10]&/@Table[FromDigits[ IntegerDigits[ n^n,9]],{n,100}]] (* _Harvey P. Dale_, Jan 30 2021 *)
%K nonn,base
%O 0,3
%A _José María Grau Ribas_, Jan 19 2012
|