%I #34 Apr 28 2023 16:25:19
%S 0,2,2,6,2,12,2,14,8,16,2,32,2,20,18,30,2,42,2,44,22,28,2,72,12,32,26,
%T 56,2,84,2,62,30,40,26,110,2,44,34,100,2,108,2,80,66,52,2,152,16,86,
%U 42,92,2,132,34,128,46,64,2,216,2,68,82,126,38,156,2,116
%N Sum of the even proper divisors of 2n. Sum of the even divisors of 2n that are less than 2n.
%H Antti Karttunen, <a href="/A091818/b091818.txt">Table of n, a(n) for n = 1..16384</a>
%F a(n) = A074400(2n) - 2n. - _Michel Marcus_, Jan 14 2014
%F a(n) = Sum_{d|2n, d<2n, d even} d. - _Wesley Ivan Hurt_, Mar 02 2022
%F a(n) = 2 * A001065(n). - _Alois P. Heinz_, Mar 02 2022
%e The sum of the even divisors of 18 that are less than 18 is 8 = 2+6.
%t Table[Total[Select[Most[Divisors[2 n]],EvenQ]],{n,70}] (* _Harvey P. Dale_, Apr 28 2023 *)
%o (PARI) a(n) = sumdiv(2*n, d, !(d%2) * d * (d<2*n)); \\ _Michel Marcus_, Jan 14 2014
%o (Python)
%o from sympy import divisors
%o def a(n): return sum(d for d in divisors(2*n) if d%2==0) - 2*n
%o print([a(n) for n in range(1, 101)]) # _Indranil Ghosh_, Oct 30 2017
%Y Cf. A001065, A032741, A091570, A074400, A173455.
%K easy,nonn
%O 1,2
%A _Mohammad K. Azarian_, Mar 07 2004
%E More terms from _Michel Marcus_, Jan 14 2014