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,6

Links

Table of n, a(n) for n=0..84.

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}]

Prog

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

Crossrefs

Sequence in context: A132587 A318930 A235748 * A208576 A307897 A008651

Adjacent sequences: A204694 A204695 A204696 * A204698 A204699 A204700

Keyword

nonn,base,easy

Author

José María Grau Ribas, Jan 18 2012

Status

approved