(dotimes(i 2e3)(format(=(do((k i(do((m k(floor m 10))(s 0(+(expt(mod m 10)2)s)))((= m 0)s))))((> 7 k)k))1)"~A
"i))