(setq s(expt 10 98)n s)(format t"1.~a"(-(dotimes(i 147 n)(set'n(isqrt(+(* s s)(floor(* s s s)n)))))s))