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 A193388 #10 Dec 05 2017 21:20:18
%S A193388 0,0,2,2,6,2,8,6,8,6,12,6,24,8,14,14,30,8,26,14,24,12,24,14,36,24,26,
%T A193388 24,48,14,48,30,36,30,56,24,78,26,56,30,84,24,64,36,56,24,48,30,64,36,
%U A193388 62,56,84,26,84,56,78,48,60,30,144,48,78,62,120,36,96
%N A193388 Sum of even divisors of phi(n).
%H A193388 Antti Karttunen, <a href="/A193388/b193388.txt">Table of n, a(n) for n = 1..16384</a>
%F A193388 a(n) = A146076(A000010(n)) = A062402(n) - A193454(n). - _Antti Karttunen_, Dec 05 2017
%e A193388 a(13) = 24 because phi(13) = 12 and the sum of the 4 even divisors { 2, 4, 6, 12} is 24.
%t A193388 Table[Total[Select[Divisors[EulerPhi[n]], EvenQ[ # ]&]], {n, 58}]
%o A193388 (PARI) A193388(n) = { my(s=eulerphi(n)); sumdiv(s,d,(!(d%2))*d); }; \\ _Antti Karttunen_, Dec 05 2017
%Y A193388 Cf. A000010, A062402, A146076, A193454.
%Y A193388 Cf. also A193322, A193386.
%K A193388 nonn
%O A193388 1,3
%A A193388 _Michel Lagneau_, Jul 25 2011