The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.
login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A331805 Integers k such that k is equal to the sum of the nonprime proper divisors of k. 1
42, 1316, 131080256 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
COMMENTS
The number 37778715690312487141376 is also in the sequence. - Daniel Suteu, Jan 27 2020
The first 3 terms have the form (2^p-1)*(2^(p-1))*((2^p-1)^2-2), i.e., a Perfect number times a Carol prime. - G. L. Honaker, Jr., Jan 27 2020
In other words, the values of p are given by the intersection of A091515 and A000043. Currently, only four such values of p are known: {2, 3, 7, 19}. - Daniel Suteu, Jan 27 2020
From Bernard Schott, Jan 28 2020: (Start)
Proposition: If a number N_p is of the form Q_p * C_p where Q_p = (2^(p-1)) * (2^p - 1) is a perfect number and C_p = (2^p-1)^2-2 is a Carol prime then, the sum of the nonprime proper divisors of N_p called S_p(N_p) is equal to N_p.
Proof:
The sum of the nonprime proper divisors of N_p is:
S_p(N_p) = (2* Q_p - 2 - (2^p-1)) + ((Q_p - 1) * C_p).
In the first parenthesis, there is the sum of the nonprime proper divisors of N_p coming only from the perfect number Q_p, then in the second parenthesis, there is the sum of the nonprime proper divisors of N_p coming from C_p.
Then, this sum of the nonprime proper divisors of N_p, S_p(N_p) is indeed equal to N_p = (2^(p-1)) * (2^p-1) * ((2^p-1)^2-2).
Hence, (2^19-1)*(2^(19-1))*((2^19-1)^2-2) = 37778715690312487141376 is a term. (End)
10^13 < a(4) <= 72872313094554244192 = 2^5 * 109 * 151 * 65837 * 2101546957. - Giovanni Resta, Jan 28 2020
LINKS
Chris K. Caldwell and G. L. Honaker, Jr., Prime Curio for 42
Wikipedia, 42 (number)
EXAMPLE
42 is a term because 42 = 1 + 6 + 14 + 21.
1316 is a term because 1316 = 1 + 4 + 14 + 28 + 94 + 188 + 329 + 658.
MATHEMATICA
fun[p_, e_] := (p^(e+1) - 1)/(p - 1); npsigma[n_] := Times @@ fun @@@ (f = FactorInteger[n]) - Plus @@ First /@ f;; Select[Range[2, 1500], npsigma[#] == 2# &] (* Amiram Eldar, Jan 26 2020 *)
PROG
(PARI) isok(n) = sigma(n) - n - vecsum(factor(n)[, 1]) == n; \\ Daniel Suteu, Jan 27 2020
CROSSREFS
Cf. A000043, A091515, A091516 (Carol primes).
Sequence in context: A075922 A230939 A331858 * A348775 A238537 A077123
KEYWORD
nonn,bref,more
AUTHOR
G. L. Honaker, Jr., Jan 26 2020
EXTENSIONS
a(2) from Chuck Gaydos
a(3) from Amiram Eldar, Jan 26 2020
STATUS
approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 5 12:10 EDT 2024. Contains 373105 sequences. (Running on oeis4.)