n:?read();sum(mod(x:fix(n/k:10^-i),7)>0or dispterms(x)<n:n-x*k,i,-999,0);
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page