OFFSET
1,3
EXAMPLE
The integers which are >= 9/2 and are <= 9 and which are coprime to 9 are 5, 7 and 8. So a(9) = lcm(5,7,8) = 280.
MATHEMATICA
f[n_] := LCM @@ Select[Range[Ceiling[n/2], n], GCD[ #, n] == 1 &]; Table[f[n], {n, 33}] (* Ray Chandler, Nov 12 2006 *)
PROG
(PARI) a(n) = lcm(select(x->(gcd(x, n)==1), vector(n\2, k, n\2+k))); \\ Michel Marcus, Mar 18 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Nov 01 2006
EXTENSIONS
Extended by Ray Chandler, Nov 12 2006
STATUS
approved