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

Author

José María Grau Ribas, Jan 19 2012

Keywords

• nonn
• base

Programs

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 *)