sum(if 3=length(f:ifactors(i))and 3=lsum(last(a),a,f)then dispterms(i),i,1,762);