OFFSET
0,3
MATHEMATICA
f[0]=1; f[n_]:=Module[{m=n^n}, While[Mod[m, 5]==0, m=m/5]; Mod[m, 5]]; Table[f[i], {i, 0, 100}]
PROG
(PARI) a(n)=lift(Mod(n/5^valuation(n, 5), 5)^n) \\ Charles R Greathouse IV, Jan 23 2012
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
José María Grau Ribas, Jan 19 2012
STATUS
approved