OFFSET
1,1
COMMENTS
Also alternating row sums of A236106. - Omar E. Pol, Jan 23 2014
Could also be called the twice sigma function, see first formula. - Omar E. Pol, Feb 05 2014
LINKS
FORMULA
a(n) = 2*sigma(n) = 2*A000203(n).
Dirichlet g.f.: 2*zeta(s-1)*zeta(s). - Ilya Gutkovskiy, Jul 06 2016
EXAMPLE
The even divisors of 12 are 12, 6, 4, 2, which sum to 24, so a(6) = 24.
MAPLE
with(numtheory): seq(2*sigma(n), n=1..65);
MATHEMATICA
f[n_] := Plus @@ Select[ Divisors[ 2n], EvenQ]; Array[f, 62] (* Robert G. Wilson v, Apr 09 2011 *)
PROG
(PARI) a(n) = 2 * sigma(n); \\ Joerg Arndt, Apr 14 2013
(PARI) a(n) = sumdiv(2*n, d, !(d%2) * d); \\ Michel Marcus, Jan 23 2014
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Joseph L. Pe, Nov 25 2002
EXTENSIONS
More terms from Emeric Deutsch, May 24 2004
STATUS
approved