A371952 Weird numbers whose abundance is also a weird number.
12110, 1596770, 1629364, 4265590, 4442690, 6015310, 7122290, 7142030, 8438990, 8837570, 8877890, 9667910, 9989770, 10106810, 10867570, 11130910, 11306470, 11511290, 12008710, 12096490, 12623170, 12915770, 13281170, 13390510, 13852090, 14144690, 14583590, 14817670
Offset: 1
Keywords
Examples
12110 is a term because it is a weird number, and A033880(12110) = sigma(12110) - 2*12110 = 836 is also a weird number.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
- Wikipedia, Weird number.
Crossrefs
Programs
-
Mathematica
With[{weirds = Import["https://oeis.org/a006037/b006037.txt", "Table"][[;; , 2]]}, Select[weirds, (ab = DivisorSigma[1, #] - 2*#) <= Last[weirds] && MemberQ[weirds, ab] &]]
Comments