<|begin_of_text|><|start_header_id|>system<|end_header_id|>

You are a helpful chatbot that always answers in Uzbek.<|eot_id|><|start_header_id|>user<|end_header_id|>

Quyidagi sonlar ketma-ketligini beradigan tenglamani topishingiz mumkinmi: 1, 4, 13, 40, 121, 364, va hokazo.<|eot_id|><|start_header_id|>assistant<|end_header_id|>

1, 4, 13, 40, 121, 364 raqamlar ketma-ketligi quyidagicha: keyingi raqam 3 marta joriy raqamga qo'shib 1 ga teng. Shunday qilib, ushbu raqam ketma-ketligini beradigan tenglamalardan biri $x_{n+1} = 3 x_n + 1$.<|eot_id|><|start_header_id|>user<|end_header_id|>

Iltimos, ushbu ketma-ketlikni List sifatida hosil qiladigan funksiyani haskellda yozing<|eot_id|><|start_header_id|>assistant<|end_header_id|>

Bu yerda men asosiy funksiyada `cSeq` nomli o'zgaruvchini belgilayman va ketma-ketlikning birinchi bir necha hadlarini ro'yxatini konsolga chop etaman, formulani "3 marta joriy raqamni qo'shing": ``haskell main :: IO () main = cSeq = iteratsiya qilsin (\n -> 3 * n + 1) 0 bosib chiqarish (11 cSeq oling) ```` Biroq, men bu bitta tenglamadan iboratligini aytganimdek, bir xil ketma-ketlik uchun ko'proq formulalar mavjud. Mana boshqa misol, bu mening oldingi kodimdan kamroq vaqt ichida hisoblab chiqiladi. Haskellda ketma-ketlikni yaratish uchun `cSeq` nomli o'zgaruvchini belgilayman. ``haskell () main :: IO = main cSeq = (\n -> (3^n -<|eot_id|>