for(n=1,100,s=Fi;r=m=n;for(p=3,5,while(m%p