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

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, 14, 22, 36, 16, 22, 40, 42, 4, 12, 20, 46, 41, 7, 30, 6, 52, 38, 34, 26, 58, 60, 28, 22, 1, 46, 66, 10, 42, 70, 72, 34, 26, 12, 58

Offset

0,3

Links

Table of n, a(n) for n=0..61.

Mathematica

Select[Table[2n-DivisorSigma[1, n], {n, 80}], #>=0&] (* Harvey P. Dale, Jun 01 2018 *)

Crossrefs

Sequence in context: A033880 A033879 A324546 * A106316 A300721 A126707

Adjacent sequences: A033880 A033881 A033882 * A033884 A033885 A033886

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved