A274829 Numbers in the range of the sum of deficient divisors function.
1, 3, 4, 6, 7, 8, 10, 12, 13, 14, 15, 18, 19, 20, 22, 24, 27, 28, 30, 31, 32, 34, 36, 38, 40, 42, 43, 44, 46, 48, 52, 54, 56, 57, 60, 62, 63, 64, 66, 68, 70, 72, 74, 75, 76, 78, 80, 84, 86, 90, 92, 93, 94, 96, 97, 98, 102, 104, 105, 106, 108, 110, 112, 114, 118, 120, 121, 122, 123, 124, 126, 127, 128, 130, 132, 133, 134, 135, 138, 139, 140, 142, 144, 148, 150, 151, 152, 153, 154, 156, 158
Offset: 1
Keywords
Programs
-
Mathematica
Take[#, 100] &@ Union@ Table[Total@ Select[Divisors@ n, DivisorSigma[1, #] < 2 # &], {n, 10^4}] (* Michael De Vlieger, Jul 13 2016 *)
Comments