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 A193334 #13 Mar 22 2024 04:22:59
%S A193334 0,0,2,0,2,4,3,0,0,3,4,4,2,6,6,0,3,0,4,4,5,6,6,8,0,4,6,6,4,9,5,0,8,4,
%T A193334 8,0,2,8,6,6,4,10,4,8,4,9,8,4,0,0,9,3,4,12,9,12,8,6,8,12,2,10,6,0,8,
%U A193334 12,4,6,10,12,9,0,2,4,4,8
%N A193334 Number of even divisors of sigma(n).
%C A193334 sigma(n) = sum of divisors of n, A000203.
%H A193334 Charles R Greathouse IV, <a href="/A193334/b193334.txt">Table of n, a(n) for n = 1..10000</a>
%F A193334 a(n) = A183063(A000203(n)). - _Amiram Eldar_, Mar 22 2024
%e A193334 a(14) = 6 because sigma(14) = 24 and the 6 even divisors are {2, 4, 6, 8, 12, 24}.
%t A193334 a[n_] := Block[{d = Divisors[DivisorSigma[1,n]]}, Count[EvenQ[d], True]]; Table[a[n], {n, 80}]
%o A193334 (PARI) a(n)=n=sigma(n);if(n%2,0,numdiv(n/2)) \\ _Charles R Greathouse IV_, Jul 30 2011
%Y A193334 Cf. A000203, A183063.
%K A193334 nonn,easy
%O A193334 1,3
%A A193334 _Michel Lagneau_, Jul 23 2011