for(i=1,762,factor(i)[,2]==[1,1,1]~&print(i))