Prime numbers

Write-Host "Calculating prime numbers"
Write-Host ""

$count = 0
1..1000 | foreach {

    $number = $_
    $divisor = [math]::Sqrt($number)
    $prime = $true

    2..$divisor | foreach {
        if ($number % $_ -eq 0) {
            $prime = $false
        }
    }

    If ($prime) {
        Write-Host -NoNewline $number.ToString().PadLeft(4)
        $count++
        If ($count % 10 -eq 0) {
            Write-Host ""
        }
    }

}

Write-Host ""
Write-Host "$count primes between 1 and 1000"
Write-Host ""