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

initialList :: Integer -> [Integer]
initialList n = [a i | i <- [1..n+1]]