A204816 Final nonzero digit of n^n in base 6.

1, 1, 4, 3, 4, 5, 1, 1, 4, 3, 4, 5, 4, 1, 4, 3, 4, 5, 3, 1, 4, 3, 4, 5, 4, 1, 4, 3, 4, 5, 1, 1, 4, 3, 4, 5, 1, 1, 4, 3, 4, 5, 1, 1, 4, 3, 4, 5, 4, 1, 4, 3, 4, 5, 3, 1, 4, 3, 4, 5, 4, 1, 4, 3, 4, 5, 1, 1, 4, 3, 4, 5, 4, 1, 4, 3, 4, 5, 1, 1, 4, 3, 4, 5, 4

Offset

0,3

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A049788 A002558 A204671 * A204818 A099634 A203144

Adjacent sequences: A204813 A204814 A204815 * A204817 A204818 A204819

Keyword

nonn,easy,base

Author

José María Grau Ribas, Jan 19 2012

Status

approved