A033884 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

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

(list; graph; refs; listen; history; text; internal format)

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