OFFSET
1,2
MATHEMATICA
f[m_, n_] := Block[{k = 0, c = n}, While[c > 0, k++; While[GCD[k, m] > 1, k++ ]; c--; ]; k]; Table[Product[f[m, n], {m, n}], {n, 17}] (* Ray Chandler, Dec 29 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Dec 28 2006
EXTENSIONS
Extended by Ray Chandler, Dec 29 2006
STATUS
approved