求助怎么用MMA算这个极限啊

使用Fold函数生成an的表达式
a[n_] := Fold[Sqrt[#1 + #2] &, Sqrt[n], Range[n - 1., 1., -1.]];
Map[a, PowerRange[1, 10^6]]
发现很快收敛, 数值大概为1.75793