A204815 Final nonzero digit of n^n in base 5.

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, 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, 1, 4, 1, 1, 1, 3, 1, 2, 1, 2, 4, 4, 1, 1, 4, 2, 1

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, 5]==0, m=m/5]; Mod[m, 5]]; Table[f[i], {i, 0, 100}]

Prog

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

Crossrefs

Sequence in context: A010312 A303599 A068930 * A247642 A144260 A097526

Adjacent sequences: A204812 A204813 A204814 * A204816 A204817 A204818

Keyword

nonn,easy,base

Author

José María Grau Ribas, Jan 19 2012

Status

approved