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 A343218 #7 Apr 08 2021 22:13:18
%S A343218 3,6,7,10,11,12,14,15,17,19,20,21,22,23,24,26,27,28,29,30,31,32,33,34,
%T A343218 35,38,39,40,42,43,44,45,46,47,48,51,52,53,54,55,56,57,58,59,60,62,63,
%U A343218 65,66,67,68,69,70,71,72,74,75,76,77,78,79,80,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,98,99,102,103
%N A343218 Numbers k such that A003415(sigma(k)) > k.
%H A343218 <a href="/index/Si#SIGMAN">Index entries for sequences related to sigma(n)</a>
%t A343218 Select[Range[103], If[#2 < 2, 0, #2 Total[#2/#1 & @@@ FactorInteger[#2]]] > #1 & @@ {#, DivisorSigma[1, #]} &] (* _Michael De Vlieger_, Apr 08 2021 *)
%o A343218 (PARI)
%o A343218 A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
%o A343218 isA343218(n) = (A003415(sigma(n))>n);
%Y A343218 Cf. A000203, A003415, A343219 (characteristic function).
%K A343218 nonn
%O A343218 1,1
%A A343218 _Antti Karttunen_, Apr 08 2021