Please write a function in haskell that generates this sequence as a List