human
次の数値シーケンスを与える方程式を見つけることができますか：1、4、13、40、121、364など。
gpt
数字1、4、13、40、121、364のシーケンスは、次の数値が現在の数字と1の3倍であるというパターンに従います。したがって、この数値シーケンスを与える可能性のある方程式の1つは、$ x_ {n + 1} = 3 x_n + 1 $です。
human
このシーケンスをリストとして生成する機能をHaskellに記述してください
gpt
1、4、13、40、121、364の数列を生成できるHaskell関数を紹介しよう：

```
sequence :: [Integer]
sequence = 1 : next sequence
  where
    next (x:xs) = (3 * x + 1) : next xs
```

空のリストを渡してこの関数を呼び出すと、数列を含むリストが返される。