a:=list setSize(4e3)
for(i,1,3e3,a atPut((b:=i asString)sum-(b size)*48+i,1);a at(i)or i println)