OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
Multiplicative with a(p^e) = (p+1)*p^(2e - k), k = 1 if p is odd, k = 2 if p is 2.
From R. J. Mathar, Apr 14 2011: (Start)
Dirichlet g.f.: (2^s-1)*zeta(s-1)*zeta(s-2)/((2^s+2)*zeta(2s-2)).
Sum_{k=1..n} a(k) ~ 7*n^3 / (2*Pi^2). - Vaclav Kotesovec, Feb 01 2019
Sum_{n>=1} 1/a(n) = (13/11) * zeta(2)^2 * Product_{p prime} (1 - 1/p^2 - 1/p^3 + 1/p^4) = (13/11) * A098198 * A330523 = 1.7136743536... . - Amiram Eldar, Nov 05 2022
MATHEMATICA
f[n_] := Block[{a = 1, b = FactorInteger[n]}, While[ Length[b] > 0, a = a*(b[[1, 1]] + 1)*b[[1, 1]]^(2b[[1, 2]] - If[ OddQ[ b[[1, 1]]], 1, 2]); b = Drop[b, 1]]; a]; Table[ f[n], {n, 1, 55}]
Table[n*Sum[d^2 MoebiusMu[n/d], {d, Divisors[n]}]/EulerPhi[2*n], {n, 1, 100}] (* Vaclav Kotesovec, Feb 01 2019 *)
f[p_, e_] := (p + 1)*p^(2*e - If[p == 2, 2, 1]); a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100] (* Amiram Eldar, Sep 14 2020 *)
PROG
(PARI) a(n) = {my(f = factor(n)); prod(i = 1, #f~, (f[i, 1]+1)*f[i, 1]^(2*f[i, 2] - if(f[i, 1]==2, 2, 1))); } \\ Amiram Eldar, Nov 05 2022
CROSSREFS
KEYWORD
nonn,mult,easy
AUTHOR
Sharon Sela (sharonsela(AT)hotmail.com), May 14 2002
EXTENSIONS
Edited by Robert G. Wilson v, May 20 2002
STATUS
approved