OFFSET
1,2
LINKS
FORMULA
MATHEMATICA
f[2, e_] := 1; f[p_, e_] := NextPrime[p, -1]^e; a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[DivisorSigma[1, n]]; Array[a, 100] (* Amiram Eldar, Dec 12 2021 *)
PROG
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
Antti Karttunen, Dec 12 2021
STATUS
approved