|
|
A067250
|
|
Numbers n such that prime(n) = floor(n*log(n*omega(n))).
|
|
0
|
|
|
10, 57, 92, 99, 123, 124, 1677, 2485, 32578, 33165, 33220, 451140, 5954790
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|