Software Libre para la Enseñanza y el Aprendizaje de las Matemáticas (2010-11) Software Libre para la Enseñanza y el Aprendizaje de las Matemáticas (2010-11)

WXMAXIMA 0.8.4 Una solución es la siguiente, en ella hemos mostrado el tiempo empleado por maxima para obtener la solución:

 (%i1) primos(n):=block([a,k],
  a:0,
  for k from 1 thru n do
     (if primep(k) then a:a+k),
 (a))$

 (%i2)primos(2000000);
      Evaluation took 46.5600 seconds (46.5600 elapsed)
 (%02)142913828922

Propuesta alternativa

 (%i1) a:0$
       b:2$
       for k:1 step b while b<2000000 do(
               a:a+b,b:next_prime(b)
       );
       a;

 (%02)142913828922  Rafatelo