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 A068938 #9 Nov 14 2019 09:40:15 %S A068938 2,3,5,6,7,9,10,11,12,13,14,15,17,18,19,20,21,22,23,24,25,26,28,29,30, %T A068938 31,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,49,50,51,52,53,54,55, %U A068938 56,57,58,59,60,61,62,63,65,66,67,68,69,70,71,73,74,75,76,77,78,79,80 %N A068938 Numbers having the sum of distinct prime factors greater than the sum of exponents in prime factorization, A008472(n)>A001222(n). %H A068938 Amiram Eldar, <a href="/A068938/b068938.txt">Table of n, a(n) for n = 1..10000</a> %e A068938 12 is included because 12 = 2^2 * 3^1 and 2+3 > 2+1. %t A068938 sdfQ[n_]:=Module[{fi=Transpose[FactorInteger[n]]},Total[fi[[1]]] > Total[ fi[[2]]]]; Select[Range[80],sdfQ] (* _Harvey P. Dale_, Jul 23 2013 *) %Y A068938 Cf. A068935, A068936, A054411, A068937. %K A068938 nonn %O A068938 1,1 %A A068938 _Reinhard Zumkeller_, Mar 08 2002 %E A068938 More terms from _David Wasserman_, Jun 17 2002