This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A204818 #11 Oct 03 2015 15:12:53
%S A204818 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 A204818 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 A204818 2,5,2,7,1,1,4,3,4,5,1,7,4,1,2,3,1
%N A204818 Final nonzero digit of n^n in base 8.
%t A204818 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 A204818 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 A204818 nonn,base
%O A204818 0,3
%A A204818 _José María Grau Ribas_, Jan 19 2012