%I #14 Apr 06 2024 07:57:29
%S 0,4,3,2,12,0,12,19,10,12,28,12,8,48,12,4,51,12,26,56,4,54,60,17,12,2,
%T 64,24,12,120,60,72,12,56,115,72,80,58,39,144,12,20,186,12,124,7,72,
%U 65,96,18,156,168,64,12,56,104
%N Abundancy of the abundant or perfect numbers: m = sigma(k)-2k for n such that m >= 0.
%H Amiram Eldar, <a href="/A033882/b033882.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A033880(A023196(n)). - _Amiram Eldar_, Apr 06 2024
%t Select[Table[DivisorSigma[1,n]-2n,{n,250}],#>=0&] (* _Harvey P. Dale_, Jan 22 2015 *)
%o (PARI) lista(kmax) = {my(ab); for(k = 1, kmax, ab = sigma(k)-2*k; if(ab >= 0, print1(ab, ", ")));} \\ _Amiram Eldar_, Apr 06 2024
%Y Cf. A000203, A023196, A033880.
%K nonn
%O 1,2
%A _N. J. A. Sloane_
%E Offset corrected by _Amiram Eldar_, Apr 06 2024