A182225 Numbers m such that the sum of their divisors smaller than A033880(m) is greater than A033880(m).

12, 24, 30, 36, 40, 42, 48, 54, 56, 60, 66, 72, 80, 84, 90, 96, 100, 108, 112, 120, 126, 132, 140, 144, 150, 156, 160, 162, 168, 176, 180, 192, 198, 200, 204, 208, 210, 216, 220, 224, 228, 234, 240, 252, 260, 264, 270, 272, 276, 280, 288, 294, 300, 304, 306, 308, 312

Offset: 1

Author

M. F. Hasler, Apr 19 2012

Keywords

• nonn

Comments

Motivated by A100696. Subsequence of A005101: all terms are abundant.

Links

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

Programs

Mathematica

aQ[n_] := (ab = DivisorSigma[1, n] - 2 n) > 0 && DivisorSum[n, # &, # < ab &] > ab; Select[Range[312], aQ] (* Amiram Eldar, Sep 08 2019 *)

PARI

is_A182225(n)=my(L=sigma(n)-2*n,s=L);fordiv(n,d,d