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