%I#10 2019年4月9日15:11:40

%S 2,1,2,1,1,2,2,1,2,2,1,2,1,1,1,1,2,1,2,1,1,2,1,2,1,2,1,2,1，1,1,2,2，1,1,1,1，

%T 2,2,1,2,2,1,1,2,1,1,1,2,2,1,1,1,2,1,1,2,1,2,2,1,1,1,1,1,2,2,1,2,1,2,2,1，

%U 1,1,2,2,1,2,2,2,1,1,1,1,2,1,2,1,1,2,1,2,1,2,1,1,1,2,2,1,1,1,12,2,1,2,1,2

%态射1->{2,1,2,1,1,1,2,1}，2->{1,1,1,1,2,2,2,1,1,2}下的N轨迹。

%D T.S.Blyth和E.F.Robertson，《学生基本代数：第5卷：群体：查普曼和霍尔》，1986年，第9页。

%H<a href=“/index/Fi#FIXEDPOINTS”>映射不动点序列的索引项</a>

%ts[1,1]={1}；s[2,1]={2}；；s[1，2]＝{2}；s[2,2]={1}；；s[1,3]={1,2}；s[2,3]={1}；；s[1,4]={1}；s[2,4]={1,2}；；s[1,5]={1,2}；s[2,5]={2}；；s[1,6]={2}；s[2,6]={1}；；w[i_]=s[1，1+Mod[i，6]]v[i_]=s[2，1+Mod[i、6]]s[1]=Flatten[表[w[i]，{i，1，6}]]s[2]=Flatten[表[v[i]、{i、1、6}]t[a_]：=扁平[s/@a]；p[0]={1}；p[1]=t[p[0]]；p[n]：=t[p[n-1]]aa=p[3]

%t嵌套[Flatten[#]/。{1->{2,1,2,1,1,1,1,2,2,1}，2->{1,1,2,2,1,2}}&，2,4]//压扁（*哈维·P·戴尔，2019年4月9日*）

%Y参考A001030、A006338。

%K nonn公司

%0、1

%A _Roger L.Bagula，2005年5月17日

%E编辑：N.J.A.Sloane，2006年11月12日