A331805 Integers k such that k is equal to the sum of the nonprime proper divisors of k.
42, 1316, 131080256
Offset: 1
Examples
42 is a term because 42 = 1 + 6 + 14 + 21. 1316 is a term because 1316 = 1 + 4 + 14 + 28 + 94 + 188 + 329 + 658.
Links
- Chris K. Caldwell and G. L. Honaker, Jr., Prime Curio for 42
- Wikipedia, 42 (number)
Programs
-
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 *)
-
PARI
isok(n) = sigma(n) - n - vecsum(factor(n)[,1]) == n; \\ Daniel Suteu, Jan 27 2020
Extensions
a(2) from Chuck Gaydos
a(3) from Amiram Eldar, Jan 26 2020
Comments