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,1

Comments

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

Links

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

Mathematica

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

Prog

(PARI) is_A182225(n)=my(L=sigma(n)-2*n, s=L); fordiv(n, d, d<L||return; (s-=d)<0&return(1))

Crossrefs

Sequence in context: A333945 A335146 A365008 * A074697 A333919 A289484

Adjacent sequences: A182222 A182223 A182224 * A182226 A182227 A182228

Keyword

nonn

Author

M. F. Hasler, Apr 19 2012

Status

approved