$m=250;print 2;for($b=3;$b<=$m;$b+=2){if(!$d[$a]){for($a=$b*$b;$a<=$m;$a+=$b){$c[$a]=1}}print",$b"}