Bitte schreibe eine Funktion in Haskell, die diese Folge als Liste generiert.
Könntest du die Gleichung finden, die die folgende Zahlenfolge ergibt: 1, 4, 13, 40, 121, 364, usw. Die Zahlenfolge 1, 4, 13, 40, 121, 364 folgt dem Muster, dass die nächste Zahl das Dreifache der aktuellen Zahl plus eins ist. Eine mögliche Gleichung, die diese Zahlenfolge ergibt, ist $x_{n+1} = 3 x_n + 1$.
Okay! Hier definiere ich eine Variable namens `cSeq` in einer main Funktion und gebe eine Liste der ersten paar Terme der Folge auf der Konsole aus, indem ich meine vorherige Beschreibung der Formel "das Dreifache der aktuellen Zahl plus eins" verwende:
```haskell
main :: IO ()
main = do
    let cSeq = iterate (
 -> 3 * n + 1) 0
    print (take 11 cSeq)
```

Wie ich jedoch erwähnte, ist das nur eine mögliche Gleichung, es gibt viele weitere Formeln für dieselbe Folge. Hier ist ein weiteres Beispiel, das den Code schneller berechnet und `a(n) = (3^n - 1)/2` verwendet, um die Folge in Haskell zu generieren.
```haskell
main :: IO ()
main = do
    let cSeq = map (
 -> (3^n - 1) `div` 2) [0..10]
    print cSeq
```

In diesem Code verwenden wir die map Funktion, um die Formel `an = (3^n - 1)/2` auf jedes Element in der Liste `[0,1,2,3,4,5,6,7,8,9]` (die den Indizes der ersten 10 Terme in der Folge entspricht) anzuwenden. Dann verwenden wir print, um die resultierende Liste auf der Konsole auszugeben.

Wenn du einen dieser Codes ausführst, sollte folgende Ausgabe erscheinen:
```md
[0,1,4,13,40,121,364,1093,3280,9841,29524]
```