sum((n:i,while(mod(n,10)-mod(n:fix(n/10),10))^2>25 do 0,if n=0then dispterms(i)),i,17,9393);
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page