@j=(3,5,7);for$i(3..999){if(!($i%$j[$k%3])){print"$i\n";$k++}}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page