問題:求
問題的來源:
此問題我是前幾日在某博客上看到的,博客文章的重點並不在於求出確切的值,而是考慮對於這種問題計算的程序如何編寫。看完文章以後我正巧在學習MMA編程於是我嘗試用MMA寫了一個程序,並估計其極限。程序如下:
a[n_] := (n^2 + 1)/(n^2 - 1) ;
t[n_] := If[PrimeQ[n], a[n], 1];
pArray[n_] := Module[{ },
array = Table[1, n];
Do[array = ReplacePart[array, k -> array[[k - 1]]*t[k]], {k, 2, n}];
array = ReplacePart[array, 1 -> a[2]];
N[array]
];
p[n_] := pArray[n][[n]];
ListPlot[pArray[5000]]
最後把計算出來的結果做圖,發現該乘積比較有可能收斂到