login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A125310 Numbers n such that n = sum of deficient proper divisors of n. 10
6, 28, 90, 496, 8128, 33550336, 8589869056 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Since any proper divisor of a perfect number is deficient, all perfect numbers are (trivially) included in the sequence.

Hence the interesting terms of the sequence are its non-perfect terms, which I call "deficiently perfect". 90 is the only such term < 10^8. Are there any more?

If a(n) were defined to be those numbers that are equal to the sum of their deficient divisors, then the sequence would begin with 1.  So, up to 10^10, the only non-perfect numbers in that sequence would be 1 (a deficient number) and 90 (an abundant number). - Timothy L. Tiffin, Jan 08 2013

a(8) > 10^10. - Giovanni Resta, Jan 08 2013

These "deficiently perfect" numbers are pseudoperfect (A005835) and are a proper multiple of a nondeficient number (and hence abundant).

LINKS

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

Index entries for sequences where any odd perfect numbers must occur

EXAMPLE

90 has deficient proper divisors 1, 2, 3, 5, 9, 10, 15, 45, which sum to 90. Hence 90 is a term of the sequence.

MATHEMATICA

sigdef[n_] := Module[{d, l, ct, i}, d = Drop[Divisors[n], -1]; l = Length[d]; ct = 0; For[i = 1, i <= l, i++, If[DivisorSigma[1, d[[i]]] < 2 d[[i]], ct = ct + d[[i]]]]; ct]; l = {}; For[i = 1, i <= 10^8, i++, If[sigdef[i] == i, l = Append[l, i]]]; l

PROG

(PARI) is(n)=sumdiv(n, d, (sigma(d, -1)<2 && d<n)*d)==n \\ Charles R Greathouse IV, Jan 17 2013

CROSSREFS

Cf. A005100, A198470, A198471.

Subsequence of A005835. Fixed points of A294886. Cf. also A294900.

Sequence in context: A055711 A141255 A091321 * A138874 A172141 A172132

Adjacent sequences:  A125307 A125308 A125309 * A125311 A125312 A125313

KEYWORD

nonn

AUTHOR

Joseph L. Pe, Mar 19 2008

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 17 23:26 EST 2019. Contains 329242 sequences. (Running on oeis4.)