cp's OEIS Frontend

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.

A068938 Numbers having the sum of distinct prime factors greater than the sum of exponents in prime factorization, A008472(n)>A001222(n).

This page as a plain text file.
%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