Question

想用mathematica表示一个数列

想用mathematica表示一个数列，数列前32项都是1，从第33项（A33）开始，A33=（A1+A2）mod2，这个数列要有10000个数，跪求各位大神指点，这个公式叫Tausworthe，如果哪位知道这个的更是感激不尽！

Answer 1

查了下函数定义，没看懂——我查到的那个式子是从A32开始往前加的啊，而且里面含了k，那个k是哪里来的？所以，给你指个路吧。

取模是Mod，用递推方程求数列的项可以用RecurrenceTable，具体格式看看帮助吧。

Answer 2

RecurrenceTable[{a[n + 32] == Mod[(a[n] + a[n + 1]), 2],
Table[a[i] == 1, {i, 32}]}, a, {n, 1, 10000}]

ListLinePlot[
RecurrenceTable[{a[n + 32] == Mod[(a[n] + a[n + 1]), 2],
Table[a[i] == 1, {i, 32}]}, a, {n, 1, 10000}]]