%I #10 Aug 26 2015 01:49:30
%S 5,10,17,43,57,124,1677,1682,1699,1712,2577,2663,2675,32519,32547,
%T 32578,33165,33190,33220,33225,444084,444089,444358,444362,444524,
%U 444665,445737,446321,447710,447778,450720,450726,451140,451194,451498,453071
%N Numbers n such that prime(n) = floor(n*log(n*omega(sigma(n)))).
%t a = {}; For[n = 1, n < 10000, n++, If[Prime[n] == Floor[n* Log[n*Length[FactorInteger[DivisorSigma[1,n]]]]], AppendTo[a, n]]]; a (* _Stefan Steinerberger_, Jun 17 2007 *)
%K easy,nonn
%O 1,1
%A _Benoit Cloitre_, Feb 20 2002
%E More terms from _Stefan Steinerberger_, Jun 17 2007