%I#18 2018年1月21日09:36:08
%S 0,1,0,0,1,1,0,1,0,1,0,0,0,1,1,0,1,1,01,1,0,1,1,1,1,0,
%温度0,0,1,1,0,1,0,0,0,1,0,01,0,0,
%U 1,1,1,0,1,0,0,1,1,0,1,1,1,1,1,2,1,1,0,1,1,01,0,1,1,1,1,0,10,0,0
%N在重复应用形态0->0,1,0,0,1->1,0,1下0的图像。
%D Bernardino、André、Rui Pacheco和Manuel Silva。《替代无限词的着色因子》,《离散数学》340.3(2017):443-451。参见示例3。
%H Robert Israel,n表,n(n)表示n=1..10000</a>
%H A.Bernardino、M.Silva、R.Pacheco,<A href=“https://arxiv.org/abs/1605.09343“>无限代换词的着色因子</a>,arXiv:1605.09343[math.CO],2016。参见示例3。
%F From _Robert Israel_,2017年3月15日:(开始)
%Fα(n)=α(4n)=β(4n-3)。
%F a(4n-1)=0。
%F a(4n-2)=1。
%F G.F.G(x)满足G(x)=(1+1/x^3)G(x^4)+x^2/(1-x ^4)。(结束)
%p with(ListTools);
%p psi:=过程(S)
%p压扁(subs({0=[0,1,0,0],1=[1,1,0,1]},S));
%p端;
%p S:=[0];
%p表示n从1到6 do S:=psi(S):od:
%p S;
%t替代系统[{0->{0,1,0,0},1->{1,1,0,1}},{0}和4]//最后(*Jean-François Alcover_,2018年1月21日*)
%Y参考A283316、A283317。
%K nonn,简单
%O 1号机组
%A _N.J.A.Sloane,2017年3月9日
|