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);