%I #12 May 13 2013 01:50:02
%S 1,1,4,2,1,1,1,3,1,4,4,1,1,3,1,2,1,2,4,4,1,1,4,2,1,1,1,3,1,4,1,1,1,3,
%T 1,3,1,2,4,4,1,1,4,2,1,4,1,3,1,4,4,1,1,3,1,1,1,2,4,4,1,1,4,2,1,3,1,3,
%U 1,4,1,1,1,3,1,2,1,2,4,4,1,1,4,2,1
%N Final nonzero digit of n^n in base 5.
%t f[0]=1;f[n_]:=Module[{m=n^n},While[Mod[m,5]==0,m=m/5];Mod[m,5]];Table[f[i],{i,0,100}]
%o (PARI) a(n)=lift(Mod(n/5^valuation(n,5),5)^n) \\ _Charles R Greathouse IV_, Jan 23 2012
%K nonn,easy,base
%O 0,3
%A _José María Grau Ribas_, Jan 19 2012
|