OFFSET
1,3
COMMENTS
From Rémy Sigrist, May 21 2017: (Start)
The n-th row only depends on the radical of n: a(n, m) = a(rad(n), m), where rad(n) = A007947(n).
The n-th row is linear: a(n, m + phi(rad(n))) = a(n, m) + rad(n), where phi(n) = A000010(n) and rad(n) = A007947(n).
(End)
EXAMPLE
Array begins:
1,2,3,4,5,6,7,...
1,3,5,7,9,11,13,...
1,2,4,5,7,8,10,...
1,3,5,7,9,11,13,...
1,2,3,4,6,7,8,...
1,5,7,11,13,17,19,...
1,2,3,4,5,6,8,...
...
MATHEMATICA
f[m_, n_] := Block[{k = 0, c = n}, While[c > 0, k++; While[GCD[k, m] > 1, k++ ]; c--; ]; k]; Flatten@Table[f[d - m + 1, m], {d, 13}, {m, d}] (* Ray Chandler, Dec 29 2006 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Leroy Quet, Dec 28 2006
EXTENSIONS
Extended by Ray Chandler, Dec 29 2006
STATUS
approved