STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
f[p_, e_] := 2; f[2, e_] := If[e == 1, 2, 4]; a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100] (* Amiram Eldar, Dec 31 2022 *)
From Amiram Eldar, Dec 31 2022: (Start)
Dirichlet g.f.: (zeta(s)^2/zeta(2*s))*((2+2^s+4^s)/(2^s+4^s)).
Sum_{k=1..n} a(k) ~ (n*log(n) + (2*gamma - 5*log(2)/12 - 2*zeta'(2)/zeta(2) - 1)*n)*8/Pi^2, where gamma is Euler's constant (A001620). (End)
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
Offset 1 from Sébastien Palcoux, Jun 22 2022
proposed
editing
editing
proposed