A109510 Values of n such that sigma(n)-2n (the abundance of n) is a (nonnegative) square.

6, 12, 28, 70, 88, 108, 168, 220, 348, 496, 550, 580, 726, 748, 798, 910, 918, 952, 1032, 1120, 1200, 1240, 1504, 1644, 1672, 1840, 1888, 2140, 2205, 2392, 2470, 2472, 2814, 3190, 3222, 3580, 3804, 4030, 4648, 4732, 4758, 5032, 5670, 5830

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Eric Weisstein's World of Mathematics, Abundance

Example

12 is in the sequence since sigma(12) - 2*12 = 28 - 24 = 4 = 2^2 is a square.

Mathematica

Select[Range[6000], IntegerQ@Sqrt[DivisorSigma[1, #] - 2 #] &] (* Amiram Eldar, Jun 22 2019 *)

Prog

(PARI) isok(n) = issquare(sigma(n) - 2*n); \\ Michel Marcus, Jun 22 2019

Crossrefs

Cf. A000203, A000290, A023196, A033880.

Cf. A000396 (perfect numbers: a subsequence).

Sequence in context: A323652 A375235 A223346 * A034715 A294730 A079390

Adjacent sequences: A109507 A109508 A109509 * A109511 A109512 A109513

Keyword

nonn

Author

Eric W. Weisstein, Jun 30 2005

Extensions

Name clarified by Amiram Eldar, Jun 22 2019

Status

approved