This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A371952 #9 Apr 16 2024 14:03:39
%S A371952 12110,1596770,1629364,4265590,4442690,6015310,7122290,7142030,
%T A371952 8438990,8837570,8877890,9667910,9989770,10106810,10867570,11130910,
%U A371952 11306470,11511290,12008710,12096490,12623170,12915770,13281170,13390510,13852090,14144690,14583590,14817670
%N A371952 Weird numbers whose abundance is also a weird number.
%C A371952 Terms k of A006037 such that A033880(k) is also a term of A006037.
%H A371952 Amiram Eldar, <a href="/A371952/b371952.txt">Table of n, a(n) for n = 1..10000</a>
%H A371952 Wikipedia, <a href="https://en.wikipedia.org/wiki/Weird_number">Weird number</a>.
%e A371952 12110 is a term because it is a weird number, and A033880(12110) = sigma(12110) - 2*12110 = 836 is also a weird number.
%t A371952 With[{weirds = Import["https://oeis.org/a006037/b006037.txt", "Table"][[;; , 2]]}, Select[weirds, (ab = DivisorSigma[1, #] - 2*#) <= Last[weirds] && MemberQ[weirds, ab] &]]
%Y A371952 Subsequence of A006037 and A371920.
%Y A371952 A371953 is a subsequence.
%Y A371952 Cf. A000203 (sigma), A033880 (abundance), A371950.
%K A371952 nonn
%O A371952 1,1
%A A371952 _Amiram Eldar_, Apr 14 2024