A077374 Odd numbers m whose abundance by absolute value is at most 10, that is, -10 <= sigma(m) - 2m <= 10.
1, 3, 5, 7, 9, 11, 15, 21, 315, 1155, 8925, 32445, 442365, 815634435
Offset: 1
Examples
sigma(32445) = 64896 and 32445*2 = 64890, which makes the odd number 32445 six away from perfection: A(32445) = 6 and hence in this sequence.
Links
- Eric Weisstein's World of Mathematics, Abundance.
Crossrefs
Programs
-
Mathematica
Select[Range[1, 10^6, 2], -10 <= DivisorSigma[1, #] - 2 # <= 10 &] (* Michael De Vlieger, Feb 22 2017 *)
-
PARI
forstep(n=1,442365,2,if(abs(sigma(n)-2*n)<=10,print1(n,",")))
Extensions
a(14) from Farideh Firoozbakht, Jan 12 2004
Comments