n:?read();sum(mod(x:fix(n/k:10^-i),7)>0or dispterms(x)<n:n-x*k,i,-999,0);