OFFSET
1,1
COMMENTS
LINKS
Jose María Grau, A. M. Oller-Marcen, and J. Sondow, On the congruence 1^n + 2^n +... + n^n = d (mod n), where d divides n
MATHEMATICA
fa = FactorInteger; Car[k_, n_] := Mod[n - Sum[If[IntegerQ[k/(fa[n][[i, 1]] - 1)], n/fa[n][[i, 1]], 0], {i, 1, Length[fa[n]]}], n]; supercar[k_, n_] := If[k == 1 || Mod[k, 2] == 0 || Mod[n, 4] > 0, Car[k, n], Mod[Car[k, n] - n/2, ]]; Select[39607528021345872635*Range[15], supercar[8490421583559688410706771261086*#, 8490421583559688410706771261086*#] == # &]
CROSSREFS
KEYWORD
nonn
AUTHOR
José María Grau Ribas, Nov 16 2013
STATUS
approved