A204818 Final nonzero digit of n^n in base 8.

1, 1, 4, 3, 4, 5, 1, 7, 1, 1, 2, 3, 1, 5, 4, 7, 2, 1, 1, 3, 2, 5, 2, 7, 1, 1, 4, 3, 4, 5, 1, 7, 2, 1, 2, 3, 1, 5, 4, 7, 1, 1, 1, 3, 2, 5, 2, 7, 1, 1, 4, 3, 4, 5, 1, 7, 1, 1, 2, 3, 1, 5, 4, 7, 1, 1, 1, 3, 2, 5, 2, 7, 1, 1, 4, 3, 4, 5, 1, 7, 4, 1, 2, 3, 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, 8]==0, m=m/8]; Mod[m, 8]]; Table[f[i], {i, 0, 100}]
lnzd[x_]:=Module[{idn=IntegerDigits[x, 8]}, While[Last[idn]==0, idn=Most[idn]]; Last[idn]]; Join[{1}, Table[lnzd[n^n], {n, 90}]] (* Harvey P. Dale, Oct 03 2015 *)

Crossrefs

Sequence in context: A002558 A204671 A204816 * A099634 A203144 A109382

Adjacent sequences: A204815 A204816 A204817 * A204819 A204820 A204821

Keyword

nonn,base

Author

José María Grau Ribas, Jan 19 2012

Status

approved