OFFSET
1,2
COMMENTS
MATHEMATICA
Do[f=Sum[Mod[Sum[Mod[Sum[PowerMod[i, j^k, n^2], {i, 1, n}], n^2], {j, 1, n}], n^2], {k, 1, n}]; If[IntegerQ[f/n^2], Print[n]], {n, 1, 103}]
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
Alexander Adamchuk, Nov 02 2006
STATUS
approved