module _28

let sumNum =
    let sideLength count =
        seq {
            for i in 1..(count/2) do
                for l in 1..4 do
                    yield i * 2
        }
    sideLength 1001
    |> Seq.scan ( fun sum item -> sum + item) 1
    |> Seq.sum