a:makelist(0,i,1,3100);sum((a[lsum(cint(i)-48,i,charlist(string(n)))+n]:1,if a[n]<1then dispterms(n)),n,1,3000);