OFFSET
1,3
EXAMPLE
Those positive integers which are coprime to 8 and are <= 8/2, are 1 and 3. Those integers which are coprime to 8 and are between 8/2 and 8, are 5 and 7.
So a(8) = lcm(1+3,5+7) = lcm(4,12) = 12.
MATHEMATICA
f1[n_] := Plus @@ Select[Range[Floor[n/2]], GCD[ #, n] == 1 &]; f2[n_] := Plus @@ Select[Range[Ceiling[n/2], n], GCD[ #, n] == 1 &]; Table[LCM[f1[n], f2[n]], {n, 51}] (* Ray Chandler, Nov 12 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Nov 01 2006
EXTENSIONS
Extended by Ray Chandler, Nov 12 2006
STATUS
approved