OFFSET
1,2
COMMENTS
Denominator of ratio A326042(n) / n.
LINKS
MATHEMATICA
f1[2, e_] := 1; f1[p_, e_] := NextPrime[p, -1]^e; s[n_] := Times @@ f1 @@@ FactorInteger[n]; f[p_, e_] := s[((q = NextPrime[p])^(e + 1) - 1)/(q - 1)]; s2[1] = 1; s2[n_] := Times @@ f @@@ FactorInteger[n]; a[n_] := n/GCD[n, s2[n]]; Array[a, 100] (* Amiram Eldar, Nov 05 2021 *)
PROG
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Antti Karttunen, Nov 04 2021
STATUS
approved