|
%I #13 Jul 21 2019 12:26:28
%S 11,13,17,19,25,49,55,57,58,62,65,69,74,77,82,85,86,87,91,93,94,95,
%T 106,111,115,118,119,122,123,125,129,133,134,141,142,143,145,146,404,
%U 412,423,425,428,436,452,475,477,507,508,524,531,539,548,549,556,575,578
%N Numbers n such that the number of divisors of n is floor(log(n)).
%H Amiram Eldar, <a href="/A067283/b067283.txt">Table of n, a(n) for n = 1..10000</a>
%F n such that A000005(n) = A000195(n).
%t Select[Range[600],DivisorSigma[0,#]==Floor[Log[#]]&] (* _Harvey P. Dale_, May 07 2018 *)
%Y Cf. A000005, A000195.
%K nonn
%O 1,1
%A _Benoit Cloitre_, Feb 24 2002
|
