763.times{j=$.+=s=1
s+=1[$.%j-=1]while$.%(j*j)>0
p$.if s==8*j}