OFFSET
1,2
COMMENTS
If there are no more 1's in this sequence after the initial one, then there are no odd terms of A007691 (multiply perfect numbers) larger than one.
Denominator of the ratio A003973(n) / A003961(n), also denominator of the ratio (A341528(n)/A341529(n)) / (n / sigma(n)). - Antti Karttunen, Feb 16 2021
LINKS
FORMULA
MATHEMATICA
f[p_, e_] := NextPrime[p]^e; g[1] = 1; g[n_] := Times @@ f @@@ FactorInteger[n]; a[n_] := (gn = g[n])/GCD[gn, DivisorSigma[1, gn]]; Array[a, 100] (* Amiram Eldar, Feb 17 2021 *)
PROG
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Antti Karttunen, Aug 06 2020
STATUS
approved