%I#20 2021年3月3日21:50:43

%S 1,1,1,4,7,16,29，6012023847995619103817763315253049160955，

%电话：12186524365048716597411219478513895086778915315576624，

%电话：3115048162296424258539524915860749829799656208519307115239860559287971971230

%N正好有一个固定点的N的组成数。

%D M.Archibald、A.Blecher和A.Knopfmacher，作文和单词中的不动点，被整数序列杂志接受。

%H Joerg Arndt和Alois P.Heinz，n的表格，n=1..1000时的a（n）</a>

%H M.Archibald、A.Blecher和A.Knopfmacher，<A href=“https://cs.uwaterloo.ca/journals/JIS/VOL23/Blecher/arch14.html“>《构词和单词中的固定点》，J.Int.Seq.，第23卷（2020年），第20.11.1条。

%F a（n）~c*2^n，其中c=A065442*A048651/2=0.2319972162254452233894023675457837005318389885…-Vaclav Kotesovec_，2014年9月6日

%e a（4）=4:13、22、112、1111。

%e a（5）=7:14、32、131、221、1112、1121、11111。

%p b:=proc（n，i）选项记忆`如果`（n=0，1，series(

%p加（b（n-j，i+1）*`如果`（i=j，x，1），j=1..n），x，2））

%p端：

%p a:=n->系数（b（n，1），x，1）：

%p序列（a（n），n=1..40）；

%tb[n_，i_]：=b[n，i]=如果[n==0，1，级数[Sum[b[n-j，i+1]*如果[i==j，x，1]，{j，1，n}]，{x，0，2}]]；a[n_]：=级数系数[b[n，1]，{x，0，1}]；表[a[n]，{n，1，40}]（*_Jean-François Alcover_，2014年11月6日，以Maple命名*）

%Y列k=A238349和A238350的1。

%K nonn公司

%O 1,4个

%A _Joerg Arndt_和_Alois P.Heinz，2014年4月11日