编辑
经核准的
囊性纤维变性。A094341号,A095259号, A109890号.
提出
a[1]=1;a[2]=2;a[n_]:=a[n]=块[{t=表[a[i],{i,n-1}]},s=Plus@@t;d=除数[s];l=补体[d,t];如果[l!={},k=First[l],k=s;而[位置[t,k]=={},k+=s];k] ];t=表[a[n],{n,250}];表[k=1;而[t[k]]!=n、 k++];k、 {n,70}](*罗伯特·威尔逊v , 八月 12 2005 *)
a(10^n):1, 10, 128, 1430, ... -罗伯特·威尔逊v2005年8月12日
a(n)=A094341号(n) 对于3<=n<=70-乔治·菲舍尔2018年11月2日
囊性纤维变性。A094341号, A095259号.