%I #11 Jul 18 2024 04:49:46
%S 1,1,2,1,4,0,6,1,5,2,10,12,4,6,1,16,18,10,8,22,19,10,14,0,28,30,1,18,
%T 14,22,36,16,22,40,42,4,12,20,46,41,7,30,6,52,38,34,26,58,60,28,22,1,
%U 46,66,10,42,70,72,34,26,12,58
%N Deficiency of the deficient or perfect numbers: m = 2n - sigma(n) for n such that m >= 0.
%p A033883 := proc(n)
%p A033879(A263837(n)) ;
%p end proc:
%p seq(A033883(n),n=1..100) ; # _R. J. Mathar_, Jun 06 2024
%t Select[Table[2n-DivisorSigma[1,n],{n,80}],#>=0&] (* _Harvey P. Dale_, Jun 01 2018 *)
%K nonn
%O 0,3
%A _N. J. A. Sloane_.