OFFSET
1,2
MATHEMATICA
Su[n_] := Su[n] = Mod[Sum[GCD[i, n]*PowerMod[i, n, n], {i, 1, n}], n]; Table[Su[2n], {n, 1, 44}]
CROSSREFS
KEYWORD
nonn
AUTHOR
José María Grau Ribas, Dec 09 2013
STATUS
approved