(dotimes(i 2e3)(format(=(do((k i(do((m k(floor m 10))(s 0(+(* #1=(mod m 10)#1#)s)))((= m 0)s)))(c 0))((>(incf c)9)k))1)"~A
"i))