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 A187793 #61 May 08 2019 13:34:45
%S A187793 1,3,4,7,6,6,8,15,13,18,12,10,14,24,24,31,18,15,20,22,32,36,24,18,31,
%T A187793 42,40,28,30,36,32,63,48,54,48,19,38,60,56,30,42,48,44,84,78,72,48,34,
%U A187793 57,93,72,98,54,42,72,36,80,90,60,40,62,96,104,127,84,72,68,126,96,74,72,27
%N A187793 Sum of the deficient divisors of n.
%C A187793 Sum of divisors d of n with sigma(d) < 2*d.
%C A187793 a(n) = sigma(n) when n is itself also deficient.
%C A187793 Also, a(n) agrees with the terms in A117553 except when n is a multiple (k > 1) of either a perfect number or a primitive abundant number.
%C A187793 Notice that a(1) = 1. The remaining fixed points are given by A125310. - _Timothy L. Tiffin_, Jun 23 2016
%C A187793 a(A028982(n)) is an odd integer. Also, if n is an odd abundant number that is not a perfect square and n has an odd number of abundant divisors (e.g., 945 has one abundant divisor and 4725 has three abundant divisors), then a(n) will also be odd: a(945) = 975 and a(4725) = 2675. - _Timothy L. Tiffin_, Jul 18 2016
%H A187793 Charles R Greathouse IV, <a href="/A187793/b187793.txt">Table of n, a(n) for n = 1..10000</a>
%H A187793 <a href="/index/Su#sums_of_divisors">Index entries for sequences related to sums of divisors</a>
%F A187793 From _Antti Karttunen_, Nov 14 2017: (Start)
%F A187793 a(n) = Sum_{d|n} A294934(d)*d.
%F A187793 a(n) = A294886(n) + (A294934(n)*n).
%F A187793 a(n) + A187794(n) + A187795(n) = A000203(n).
%F A187793 (End)
%e A187793 a(12) = 10 because the divisors of 12 are 1, 2, 3, 4, 6, 12; of these, 1, 2, 3, 4 are deficient, and they add up to 10.
%p A187793 A187793 := proc(n)
%p A187793 local a,d ;
%p A187793 a := 0 ;
%p A187793 for d in numtheory[divisors](n) do
%p A187793 if numtheory[sigma](d) < 2*d then
%p A187793 a := a+d ;
%p A187793 end if ;
%p A187793 end do:
%p A187793 a ;
%p A187793 end proc:# _R. J. Mathar_, May 08 2019
%t A187793 Table[Total@ Select[Divisors@ n, DivisorSigma[1, #] < 2 # &], {n, 72}] (* _Michael De Vlieger_, Jul 18 2016 *)
%o A187793 (PARI) a(n)=sumdiv(n,d,if(sigma(d,-1)<2,d,0)) \\ _Charles R Greathouse IV_, Jan 07 2013
%Y A187793 Cf. A000203, A005100, A028982, A080226, A117553, A125310, A125499, A187794, A187795, A247328, A274338, A274339, A274340, A274380, A274549, A274829, A294886, A294934.
%K A187793 nonn,easy
%O A187793 1,2
%A A187793 _Timothy L. Tiffin_, Jan 06 2013
%E A187793 a(54) corrected by _Charles R Greathouse IV_, Jan 07 2013