OFFSET
1,2
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, n]]; Select[Range[1000], !supercar[47058*#, 47058*#] == # &]
CROSSREFS
KEYWORD
nonn
AUTHOR
José María Grau Ribas, Nov 16 2013
STATUS
approved