Question: How do I do it effectively?

Can it be done simpler/better/faster?

F3 := proc (n) options operator, arrow; ln(n)*mul(evalf(1-1/i), i = seq(ithprime(i), i = 1 .. n)) end proc; F3(100000); evalf(%);

F2 := proc (n) options operator, arrow; -ln(ln(n))+add(evalf(1/i), i = seq(ithprime(i), i = 1 .. n)) end proc; F2(100000); evalf(%);

F1 := proc (n) options operator, arrow; ln(n)-add(evalf(ln(i)/i), i = seq(ithprime(i), i = 1 .. n)) end proc; F1(5000); evalf(%);

Please Wait...