A192819 Numbers which are both abundant (A005101) and anti-abundant (A192268).
12, 18, 20, 30, 40, 42, 48, 60, 66, 70, 72, 78, 80, 84, 88, 90, 100, 102, 104, 108, 112, 120, 126, 132, 138, 140, 144, 150, 160, 162, 168, 176, 180, 186, 192, 196, 198, 200, 204, 208, 210, 220, 222, 228, 234, 240, 252, 258, 260, 264, 270, 272, 276, 280, 282, 288
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
q[n_] := Total[Cases[Range[2, n - 1], ?(Abs[Mod[n, #] - #/2] < 1 &)]] > n && DivisorSigma[1, n] > 2*n; Select[Range[300], q] (* _Amiram Eldar, Jan 13 2022 after Michael De Vlieger at A066417 *)
Extensions
Missing term a(4) inserted and more terms added by Amiram Eldar, Jan 13 2022
Comments