login
A088820
Numbers n with abundance radius of 8, i.e., abs(sigma(n)-2n) = 8.
0
22, 56, 130, 184, 368, 836, 1012, 2272, 11096, 17816, 18904, 33664, 45356, 70564, 77744, 85936, 91388, 100804, 128768, 254012, 388076, 391612, 527872, 1090912, 2087936, 2291936, 13174976, 17619844, 29465852, 35021696, 45335936, 120888092
OFFSET
1,1
COMMENTS
Original definition: Abundance-radius=8, that is Abs[sigma[n]-2n]=8 (either +8 or -8). A045770 from 3rd term complemented by -8 cases.
EXAMPLE
22 is in the sequence since sigma(22) = 1 + 2 + 11 + 22 = 36 = 2*22 - 8.
56 is in the sequence since sigma(56) = 1 + 2 + 4 + 7 + 8 + 14 + 28 + 56 = 120 = 2*56 + 8. - Michael B. Porter, Jul 20 2016
MATHEMATICA
Select[Range[1, 10^6], Abs[DivisorSigma[1, #] - 2 #] == 8 &] (* Vincenzo Librandi, Jul 20 2016 *)
PROG
(PARI) is(n)=abs(sigma(n)-2*n)==8 \\ Use, e.g., select(is, [1..10^5]*2). - M. F. Hasler, Jul 19 2016
(Magma) [n: n in [1..2*10^7] | Abs(DivisorSigma(1, n) - 2*n) eq 8]; // Vincenzo Librandi, Jul 20 2016
CROSSREFS
Cf. A000203 (sigma), A033880 (abundance), A005100 (deficient numbers); A125247 (deficiency 8).
Sequence in context: A303582 A289015 A063302 * A058097 A131878 A019506
KEYWORD
nonn
AUTHOR
Labos Elemer, Oct 20 2003
EXTENSIONS
More terms from David Wasserman, Aug 18 2005
Edited by M. F. Hasler, Jul 19 2016
STATUS
approved