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);
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page