$arr = New-Object bool[] 2000000
$arr[0] = $arr[1] = $TRUE
$sum = 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
	}
	$sum += $i
	write-host "$i, $sum"
}