m = 25;
current = N[Sqrt[m (m + 1)/2], 35];
For[n = m - 1, n >= 1, n--,
  current = N[Sqrt[n (n + 1)/2 + current], 35]
  ];
current