OFFSET
1,2
COMMENTS
P(m) = A061537(m).
MATHEMATICA
z = 100; r[n_] := Select[Divisors[n], GCD[#, n/#] == 1 &];
k[n_] := Length[r[n]];
Table[r[n], {n, 1, z}]
a[n_] := Apply[Times, r[n]]
u = Table[a[n], {n, 1, z}]
Sort[u]
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jun 24 2018
STATUS
approved