OFFSET
1,2
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..10000
FORMULA
Multiplicative with a(p^e) = p^(e + floor(e/2) - 1)*((p-1)*ceiling(e/2) + p). - Andrew Howroyd, Jul 15 2018
MATHEMATICA
a[n_] := Product[{p, e} = pe; p^(e+Floor[e/2]-1)((p-1) Ceiling[e/2]+p), {pe, FactorInteger[n]}];
a /@ Range[1, 100] (* Jean-François Alcover, Sep 20 2019 *)
PROG
(PARI) a(n)={my(f=factor(n)); prod(i=1, #f~, my(p=f[i, 1], e=f[i, 2]); p^(e + e\2 - 1)*((p-1)*((e+1)\2) + p))} \\ Andrew Howroyd, Jul 15 2018
CROSSREFS
KEYWORD
mult,nonn
AUTHOR
Yuval Dekel (dekelyuval(AT)hotmail.com), Oct 18 2003
STATUS
approved