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 A380929 #9 Feb 10 2025 01:40:16
%S A380929 36,72,84,140,144,168,180,264,270,280,288,300,336,360,372,392,450,520,
%T A380929 528,532,540,558,560,576,594,600,612,620,672,720,744,756,780,784,840,
%U A380929 900,930,1036,1040,1050,1056,1064,1068,1080,1092,1116,1120,1134,1152,1170,1180,1188,1200
%N A380929 Numbers k such that A380845(k) > 2*k.
%C A380929 Analogous to abundant numbers (A005101) with A380845 instead of A000203.
%H A380929 Amiram Eldar, <a href="/A380929/b380929.txt">Table of n, a(n) for n = 1..10000</a>
%e A380929 36 is a term since A380845(36) = 84 > 2 * 36 = 72.
%t A380929 q[k_] := Module[{h = DigitCount[k, 2, 1]}, DivisorSum[k, # &, DigitCount[#, 2, 1] == h &] > 2*k]; Select[Range[1200], q]
%o A380929 (PARI) isok(k) = {my(h = hammingweight(k)); sumdiv(k, d, d*(hammingweight(d) == h)) > 2*k;}
%Y A380929 Cf. A000203, A380845, A380846.
%Y A380929 Subsequence of A005101.
%Y A380929 Subsequences: A380847, A380848, A380930, A380931.
%Y A380929 Similar sequences: A034683, A064597, A087248, A129575, A129656, A292982, A348274, A348604, A379029.
%K A380929 nonn,base,easy
%O A380929 1,1
%A A380929 _Amiram Eldar_, Feb 08 2025