Pues lo he intentado con un programa potente de cálculo, pero es una serie poco convergente.
var i,k:integer;
j,suma: extended;
begin
j:=1.; i:=0; k:=0;
while j<= 10000000000 do
begin
suma:=suma+1/(j*j);
j:=j+1;
inc(i,1);
if i=1000000000 then
begin
inc(k,1);
writeln(k:2,'000000000 ', suma);
i:=0;
end
end;
readln;
end.
Esto es lo que me ha dado.
1000000000 1.6449340658481212E+0000
2000000000 1.6449340663482201E+0000
3000000000 1.6449340665086495E+0000
4000000000 1.6449340666170697E+0000
5000000000 1.6449340666490502E+0000
6000000000 1.6449340666490502E+0000
7000000000 1.6449340666490502E+0000
8000000000 1.6449340666490502E+0000
9000000000 1.6449340666490502E+0000
10000000000 1.6449340666490502E+0000
Como puedes ver a partir de los 5 mil millones de términos de la serie ya da siempre el mismo resultado, eso es porque el inverso del cuadrado de los números ya tiene 18 decimales cero y no suma nada para el ordenador.
Si te fijas en el enlace que te di aparecía 1.644934066 como el número con 9 decimales exactos, yo no diría que hayamos avanzado mucho más
La solución es el divide y vencerás se harían varias sumas de menos términos para que las de términos pequeños tengan algún valor. El programa capaz de autodividir las sumas por bloques cuando el cuadrado tenga un decimal menos y luego sumarlas todas es este. De esta forma se sumarán siempre números aproximadamente iguales y aunque haya 40 decimales con cero delante los que se sumarán los 18 dígitos siguientes que son los significativos
var i,k,m:integer;
j,p,suma,tope: extended;
parciales: array [1..100]of extended;
begin
j:=1.;
i:=0;
k:=0;
m:=1;
suma:=0;
tope:=0.1;
while j<= 10000000000 do
begin
p:=1/(j*j);
if p<tope then
begin
parciales[m]:=suma;
writeln(m:3,parciales[m]);
suma:=0;
inc(m,1);
tope:=tope/10;
end;
suma:=suma+p;
j:=j+1;
end;
for i:=1 to m do suma:=suma+parciales;
writeln ('Total=',suma);
readln;
readln;
end.
Que da este resultado para los diez mil millones de primeros números.
1 1.3611111111111111E+0000
2 1.8865662005542958E-0001
3 6.3422969161383656E-0002
4 2.1793199856968519E-0002
5 6.7906116298342927E-0003
6 2.1600548668326453E-0003
7 6.8329463570447091E-0004
8 2.1621053079549576E-0004
9 6.8371946963514948E-0005
10 2.1623103202985052E-0005
11 6.8376696798303054E-0006
12 2.1622808203361945E-0006
13 6.8377171796649260E-0007
14 2.1622778703367387E-0007
15 6.8377218296632582E-0008
16 2.1622776753367584E-0008
17 6.8377222946632404E-0009
18 2.1622776558367587E-0009
19 6.8377223351632320E-0010
Total= 1.6449340667482264E+0000
En vista de que parece que sirve para precisar más voy a hacer una cosa, voy a calcular para los primeros cien mil millones de números, dejare el ordenador trabajando una hora o lo que necesite y mientras tanto haré otras cosas.
Espera, por si se se colgase el ordenador, que es probable cuando se le piden estos cálculos fuera de lo común, te mando ya esto.
Mantente a la espera.
Un saludo.