A204697 Final nonzero digit of n^n in base 3.

1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1

Offset: 0

Author

José María Grau Ribas, Jan 18 2012

Keywords

• nonn
• base
• easy

Programs

Mathematica

f[0]=1;f[n_]:=Module[{m=n^n},While[Mod[m,3]==0,m=m/3];Mod[m,3]];Table[f[i],{i,0,84}]

PARI

a(n)=lift(Mod(n/3^valuation(n,3),3)^n) \\ Charles R Greathouse IV, Jan 23 2012