login
Deficiency of the deficient or perfect numbers: m = 2n - sigma(n) for n such that m >= 0.
1

%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_.