想用mathematica表示一个数列,数列前32项都是1,从第33项（A33）开始,A33=（A1+A2）mod2,这个数列要有_数学解答

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

人气：469 ℃　时间：2020-04-10 10:06:01

解答

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}...