(= a(n-of 4e3'0))(for i 1 3e3(=(a(+(sum[-(int _)48](+""i))i))1)(if(<(a i)1)(prn i)))