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 A318678 #9 Sep 05 2018 06:12:54
%S A318678 1,2,3,3,5,4,7,4,8,8,11,5,13,12,13,5,17,9,19,9,19,20,23,6,24,24,22,13,
%T A318678 29,16,31,6,31,32,33,10,37,36,37,10,41,24,43,25,30,44,47,7,48,34,49,
%U A318678 31,53,23,53,14,55,56,59,17,61,60,46,7,63,40,67,43,67,40,71,11,73,72,58,49,75,48,79,11,63,80,83,25,83,84,85,26,89,33,89,61
%N A318678 Sum of deficiencies of deficient divisors of n.
%H A318678 Antti Karttunen, <a href="/A318678/b318678.txt">Table of n, a(n) for n = 1..65537</a>
%H A318678 <a href="/index/Si#SIGMAN">Index entries for sequences related to sigma(n)</a>
%F A318678 a(n) = Sum_{d|n} [A033879(d) > 0]*A033879(d).
%F A318678 a(n) = A296075(n) + A318679(n).
%t A318678 f[n_] := 2 n - DivisorSigma[1, n]; Array[DivisorSum[#, f, f@ # >= 0 &] &, 92] (* _Michael De Vlieger_, Sep 04 2018 *)
%o A318678 (PARI) A318678(n) = sumdiv(n,d,d=d+d-sigma(d); (d>0)*d);
%Y A318678 Cf. A033879, A187793, A296075, A318441, A318442, A318679.
%K A318678 nonn
%O A318678 1,2
%A A318678 _Antti Karttunen_, Sep 04 2018