Задание 2

open System

[<EntryPoint>]
let main argv =
    let m = [ for n in 1..6 do yield 1+(n-1)*n/2 ]
    printfn "%A" m
    0 // return an integer exit code