OFFSET
1,2
COMMENTS
Multiplicative because A341529 is.
LINKS
FORMULA
Multiplicative with a(p^e) = q^(e-1)*(p^e*(q*p-1)-q+1)/(p-1), where q = A151800(p). - Sebastian Karlsson, Sep 02 2021
Sum_{k=1..n} a(k) ~ c * n^3 / 3, where c = (1/zeta(3)) / Product_{p prime} ((p^2-q)*(p^3-q))/(p^4*(p-1)) = 7.6530842... , and q(p) = A151800(p). - Amiram Eldar, Dec 24 2023
MATHEMATICA
f[p_, e_] := Module[{q = NextPrime[p]}, q^(e-1) * (p^e * (q*p-1)-q+1)/(p-1)]; a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100] (* Amiram Eldar, Dec 24 2023 *)
PROG
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
Antti Karttunen, Aug 24 2021
STATUS
approved