A223606 Numbers n whose deficiency is 22: sigma(n) - 2*n = -22.
23, 35, 39, 63, 116, 296, 848, 9536, 35456, 2118656, 537214976, 2148171776, 137444458496
Offset: 1
Examples
n = 9536. sigma(n)-2*n = -22.
Programs
-
Magma
[n: n in [1..9*10^6] | (SumOfDivisors(n)-2*n) eq -22]; // Vincenzo Librandi, Sep 14 2016
-
Mathematica
Select[Range[1, 10^8], DivisorSigma[1, #] - 2 # == - 22 &] (* Vincenzo Librandi, Sep 14 2016 *)
-
PARI
for(n=1, 10^8, if(sigma(n)-2*n==-22, print1(n ", ")))
Comments