;;; Start by assigning n the integer square root of 269696 ;;; minus 1 to be even (setq n 518) ;;; Increment n by 2 till the last 6 digits of its square are 269696 (while (!= (% (* n n) 1000000) 269696) (++ n 2)) ;;; Show the result and its square (println n "^2 = " (* n n))