$\=$/;@@=1..<>;$n=print,$p=$p?$_:2,@@=grep$n++%$p,@@for@@