{for(2..$p){$i%$_ or$p=0}print$i if$p;$p=$i++,redo}

##</code><code>##

{for(2..$p){$i%$_ or$p=0}print"$i" if$p;$p=$i++,redo}

##</code><code>##

{for(2..$p){$i%$_ or$p=0}print"$i$/" if$p;$p=$i++,redo}