A097498 Numbers divisible by their abundance sigma(n) - 2n.

1, 2, 4, 8, 10, 12, 16, 18, 20, 24, 32, 40, 44, 56, 64, 88, 104, 120, 128, 136, 152, 184, 196, 224, 234, 256, 368, 464, 512, 650, 672, 752, 884, 992, 1024, 1504, 1888, 1952, 2048, 2144, 2272, 2528, 3724, 4096, 5624, 8192, 8384, 9112, 11096, 12224, 13736

Offset

1,2

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..348

Eric Weisstein's World of Mathematics, Abundance

Mathematica

Select[Range[15000], Divisible[#, DivisorSigma[1, #]-2#]&]//Quiet (* Harvey P. Dale, Mar 15 2018 *)

Prog

(PARI) is(n)=my(t=sigma(n)-2*n); t && n%t==0 \\ Charles R Greathouse IV, Dec 12 2014

Crossrefs

Cf. A033879, A033880.

Sequence in context: A189786 A195066 A036990 * A346502 A321580 A224694

Adjacent sequences: A097495 A097496 A097497 * A097499 A097500 A097501

Keyword

nonn

Author

Reinhard Zumkeller, Aug 24 2004

Status

approved