|
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*#] == # &]
|