编辑
经核准的
表[ThueMorse[2+3n],{n,0,100}]+1(*需要Mathematica版本10或更高版本*)(*哈维·P·戴尔2020年11月29日*)
提出
囊性纤维变性。A001285号, A026492美元, A026498美元.
Michael De Vlieger,<a href=“/A026513号/b026513.txt“>n表,n=0..9999时为a(n)</a>
数组[1+Mod[DigitCount[3#+2,2,1],2]&,105,0](*迈克尔·德弗利格,2019年10月6日*)
囊性纤维变性。A001285号.