seqA :: Integer -> Integer
seqA n
    | odd n     = 1
    | otherwise = 3 + (2 * n - 1)^2

generateSequence :: Integer -> [Integer]
generateSequence n = [seqA i | i <- [1 .. n + 1]]