for(a=[i=0];++i<3e3;a[i+x]=1)for(j=''+i,x=k=0;k