A175837 (2n-1)-abundant numbers.
12, 18, 24, 30, 36, 40, 42, 48, 54, 56, 60, 66, 70, 72, 78, 80, 84, 88, 90, 96, 100, 102, 108, 112, 114, 120, 126, 132, 138, 140, 144, 150, 156, 160, 162, 168, 174, 176, 180, 186, 192, 196, 198, 200, 204, 208, 210, 216, 220, 222, 224, 228, 234, 240, 246, 252
Offset: 1
Keywords
Programs
-
Mathematica
aQ[n_] := DivisorSum[n, 2#-1&, #
2n-1; Select[Range[252], aQ] (* Amiram Eldar, Feb 18 2019 *)
Extensions
More terms from Amiram Eldar, Feb 18 2019
Comments