A033884 Deficiency of n-th deficient number: 2k - sigma(k) for k such that this is > 0.

1, 1, 2, 1, 4, 6, 1, 5, 2, 10, 12, 4, 6, 1, 16, 18, 10, 8, 22, 19, 10, 14, 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, 78, 41, 38, 82, 62, 40, 54, 88, 70, 16, 58, 44, 70, 96, 25

Offset

1,3

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Maple

with(numtheory): for n from 1 to 500 do if 2*n - sigma(n)> 0 then printf(`%d, `, 2*n - sigma(n)) fi: od:

Mathematica

Select[(2 # - DivisorSigma[1, #]) & /@ Range[100], # > 0 &] (* Amiram Eldar, Aug 03 2019 *)

Crossrefs

Cf. A000203, A005100, A033879.

Sequence in context: A188925 A063872 A199909 * A208915 A199704 A062344

Adjacent sequences: A033881 A033882 A033883 * A033885 A033886 A033887

Keyword

nonn

Author

N. J. A. Sloane

Extensions

More terms from James A. Sellers, Feb 19 2001

Status

approved