A204817 Final nonzero digit of n^n in base 7.

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

Prog

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

Crossrefs

Sequence in context: A001138 A133587 A204693 * A199721 A349942 A187147

Adjacent sequences: A204814 A204815 A204816 * A204818 A204819 A204820

Keyword

nonn,easy,base

Author

José María Grau Ribas, Jan 19 2012

Status

approved