FÓRMULA INÉDITA QUE DEVUELVE EL CUADRADO PERFECTO MÁS CERCANO A UN DETERMINADO NÚMERO NATURAL

Código en Mathematica
Table[(1/2 - Mod[1/2 + Sqrt[n], 1] + Sqrt[n])^2, {n, 1, 100}]