OFFSET
1,2
EXAMPLE
The first 4 positive integers which are coprime to 4 are 1,3,5,7. So a(4) = 1*3*5*7 = 105.
MATHEMATICA
f[n_] := Block[{c = n, k = 0, p = 1}, While[c > 0, k++; While[GCD[k, n] > 1, k++ ]; c--; p *= k; ]; p]; Table[f[n], {n, 20}] (* Ray Chandler, Dec 14 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Dec 11 2006
EXTENSIONS
Extended by Ray Chandler, Dec 14 2006
STATUS
approved