OFFSET
1,2
EXAMPLE
The positive integers k, k <= 6, where every positive integer <=k and coprime to k is also coprime to 6, are 1,2,6. So a(6) = 5 is the numerator of 1 +1/2 +1/6 = 5/3.
MATHEMATICA
f[n_] := Select[Range[n], GCD[ #, n] == 1 &]; g[n_] := Plus @@ (1/# &) /@ Select[Range[n], Times @@ GCD[f[ # ], n] == 1 &]; Table[Numerator[g[n]], {n, 40}] (* Ray Chandler, Dec 24 2006 *)
CROSSREFS
KEYWORD
frac,nonn
AUTHOR
Leroy Quet, Dec 22 2006
EXTENSIONS
Extended by Ray Chandler, Dec 24 2006
STATUS
approved