F# program to print first nPrime Numbers using Sequence

Program

open System
let checkPrime n =
    let rec check i =
        i > n/2 || (n % i <> 0 && check (i + 1))
    check 2
let primeSequence number=
    seq {
        for n in 1..number do
            if checkPrime n then
                 yield n
    }
Console.Write("Enter the value of n to generate prime numbers:\t")
let number = Int32.Parse(Console.ReadLine())
Console.WriteLine("First {0} prime Numbers", number)
for x in primeSequence number do
    Console.WriteLine(x)

Output

Enter the value of n to generate prime numbers: 10
First 10 prime Numbers
1
2
3
5
7