OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Wikipedia, Weird number.
EXAMPLE
97930 is a term because it is a weird number, and A001065(97930) = sigma(97930) - 97930 = 103670 is also a weird number.
MATHEMATICA
With[{weirds = Import["https://oeis.org/a006037/b006037.txt", "Table"][[;; , 2]]}, Select[weirds, (s = DivisorSigma[1, #] - #) <= Last[weirds] && MemberQ[weirds, s] &]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Apr 14 2024
STATUS
approved