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 A380930 #8 Feb 10 2025 01:41:03
%S A380930 1080,2160,3600,4320,7200,7440,8640,11340,13608,14400,14880,15120,
%T A380930 17280,18600,22680,22860,27216,28800,29760,30240,30480,31752,33264,
%U A380930 34020,34560,37200,41664,45360,45720,45900,51408,53340,54432,57600,59520,60480,60960,61200,63504
%N A380930 Numbers k such that A380845(k) > 3*k.
%C A380930 Analogous to 3-abundant numbers (A068403) with A380845 instead of A000203.
%H A380930 Amiram Eldar, <a href="/A380930/b380930.txt">Table of n, a(n) for n = 1..10000</a>
%F A380930 1080 is a term since A380845(1080) = 3330 > 3 * 1080 = 3240.
%t A380930 q[k_] := Module[{h = DigitCount[k, 2, 1]}, DivisorSum[k, # &, DigitCount[#, 2, 1] == h &] > 3*k]; Select[Range[64000], q]
%o A380930 (PARI) isok(k) = {my(h = hammingweight(k)); sumdiv(k, d, d*(hammingweight(d) == h)) > 3*k;}
%Y A380930 Cf. A000203, A380845, A380846, A380847.
%Y A380930 Subsequence of A068403 and A380929.
%Y A380930 Subsequences: A380848, A380931.
%Y A380930 Similar sequences: A285615, A293187, A300664, A328135, A340109.
%K A380930 nonn,base,easy
%O A380930 1,1
%A A380930 _Amiram Eldar_, Feb 08 2025