OFFSET
1,4
MATHEMATICA
f[n_] := Block[{k = 0, m = Mod[n, EulerPhi[n], 1]}, While[m > 0, k++; While[GCD[n, k] > 1, k++ ]; m--; ]; k]; Table[f[n], {n, 90}] (* Ray Chandler, Oct 26 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Oct 19 2006
EXTENSIONS
Edited and extended by Ray Chandler, Oct 26 2006
STATUS
approved