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