$arr = New-Object bool[] 500000
$arr[0] = $arr[1] = $TRUE
$count = 0
for ($i=2; $i -lt $arr.Length; $i++)
{
	if ($arr[$i] -eq $TRUE)
	{
		continue
	}
	for ($j=$i*2; $j -lt $arr.Length; $j += $i)
	{
		$arr[$j] = $TRUE
	}
	$count ++
	write-host "$i is $count"
	if ($count -eq 10001)
	{
		break
	}
}