OFFSET
1,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..10000
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, 100}] (* Ray Chandler, Oct 26 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet and Ray Chandler, Oct 26 2006
STATUS
approved