A064592 Nonunitary doubly perfect numbers: the sum of the nonunitary divisors of n is 2n; i.e., sigma(n) - usigma(n) = 2n.

2520, 31320, 1163160, 2208384, 3053232, 6535296, 13472928, 123165600, 365959296, 4401782352, 5517818880, 612014161920

Offset

1,1

Comments

There are no others up to 7.9*10^12, but here's a larger one: 2846972800010800140288.

Ligh & Wall found the first 11 terms of this sequence. - Amiram Eldar, Sep 27 2018

Links

Table of n, a(n) for n=1..12.

Steve Ligh and Charles R. Wall, Functions of Nonunitary Divisors, Fibonacci Quarterly, Vol. 25 (1987), pp. 333-338.

Mathematica

nusigma[ n_ ] := DivisorSigma[ 1, n ]-Times@@(1+Power@@#&/@FactorInteger[ n ]); For[ n=1, True, n++, If[ nusigma[ n ]==2n, Print[ n ] ] ]

Prog

(PARI) isok(n) = sumdiv(n, d, if (gcd(d, n/d)!=1, d)) == 2*n; \\ Michel Marcus, Jul 31 2017

Crossrefs

Cf. A048146, A064591, A064593, A064594, A064595, A064596.

Sequence in context: A258540 A159214 A224542 * A179722 A109480 A066599

Adjacent sequences: A064589 A064590 A064591 * A064593 A064594 A064595

Keyword

nonn,hard

Author

Dean Hickerson, Sep 25 2001

Status

approved