OFFSET
1,1
COMMENTS
Next term, if it exists, is bigger than 2*10^6. - Stefan Steinerberger, Apr 09 2006
a(14) > 10^9. - Donovan Johnson, Aug 03 2009
MATHEMATICA
For[n = 200000, n < 2000000, n++, If[Prime[n] == Floor[n*Log[n*Length[FactorInteger[n]]]], Print[n]]] (* Stefan Steinerberger, Apr 09 2006 *)
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Benoit Cloitre, Feb 20 2002
EXTENSIONS
a(12) from Stefan Steinerberger, Apr 09 2006
a(13) from Donovan Johnson, Aug 03 2009
STATUS
approved