OFFSET
1,1
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Feb 20 2002
EXTENSIONS
More terms from Stefan Steinerberger, Jun 17 2007
STATUS
approved