|
%I #11 Oct 03 2015 15:12:53
%S 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,
%T 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,
%U 2,5,2,7,1,1,4,3,4,5,1,7,4,1,2,3,1
%N Final nonzero digit of n^n in base 8.
%t 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}]
%t 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 *)
%K nonn,base
%O 0,3
%A _José María Grau Ribas_, Jan 19 2012
|
