login
Numbers k such that the sum of exponents in the prime factorization of k is < log(k).
1

%I #16 Feb 03 2024 10:13:43

%S 3,5,7,9,10,11,13,14,15,17,19,21,22,23,25,26,27,28,29,30,31,33,34,35,

%T 37,38,39,41,42,43,44,45,46,47,49,50,51,52,53,55,56,57,58,59,60,61,62,

%U 63,65,66,67,68,69,70,71,73,74,75,76,77,78,79,81,82,83,84,85,86,87,88

%N Numbers k such that the sum of exponents in the prime factorization of k is < log(k).

%e 9 is included because the sum of the exponents in the prime factorization of 9 is 2, which is < log(9).

%t Select[Range[100],Total[Transpose[FactorInteger[#]][[2]]]<Log[#]&] (* _Harvey P. Dale_, Feb 01 2015 *)

%Y Cf. A067712.

%K nonn

%O 1,1

%A _Leroy Quet_, Feb 05 2002

%E Definition extended and offset changed to 1 by _Georg Fischer_, Feb 01 2024