This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A193350 #20 Jan 27 2025 02:22:22
%S A193350 0,2,2,0,2,6,2,6,0,6,2,8,2,6,6,0,2,8,2,8,6,6,2,14,0,6,6,8,2,14,2,8,6,
%T A193350 6,6,0,2,6,6,14,2,14,2,8,8,6,2,12,0,8,6,8,2,14,6,14,6,6,2,24,2,6,8,0,
%U A193350 6,14,2,8,6,14,2,24,2,6,8,8,6,14,2,12,0,6,2,24,6,6,6,14,2,24,6,8,6,6,6,24,2,8,8,0
%N A193350 Sum of even divisors of tau(n).
%H A193350 Antti Karttunen, <a href="/A193350/b193350.txt">Table of n, a(n) for n = 1..10000</a>
%F A193350 a(n) = A146076(A000005(n)). - _Antti Karttunen_, May 28 2017
%F A193350 a(n) = A062069(n) - A193349(n). - _Amiram Eldar_, Jan 27 2025
%e A193350 a(24) = 14 because tau(24) = 8 and the sum of the 3 even divisors {2, 4, 8} is 14.
%t A193350 Table[Total[Select[Divisors[DivisorSigma[0,n]], EvenQ[ # ]&]], {n, 74}]
%o A193350 (PARI) a(n)=sumdiv(sigma(n,0),d,(1-d%2)*d);
%Y A193350 Cf. A000005, A062069, A146076, A193347, A193349.
%Y A193350 Cf. A000290 (the positions of zeros).
%K A193350 nonn
%O A193350 1,2
%A A193350 _Michel Lagneau_, Jul 23 2011
%E A193350 Data section extended to 100 terms by _Antti Karttunen_, May 28 2017