%I#27 2024年5月25日21:42:27

%S 1,2,3,5,9,4,23,6,8,10,40,7,22,30,11,15,67,19,49,13,38,42,43,14,12,56，

%电话：21,46,48,18,58,16,41,68,37,20,89,57,60,55,76,63151,78107,96,98,17，

%U 61,65,69,71,24103,87,64,80,74,44,83,59,92101,94,72,91185142104,45

%N其中N出现在A109890中。

%Ca（10^n）：1，10，128，1430，…-_Robert G.Wilson v_，2005年8月12日

%C a（n）=A094341（n），对于3<=n<=70.-_乔治·菲舍尔（Georg Fischer），2018年11月2日

%H Richard J.Mathar和Reinhard Zumkeller，n的表格，a（n）表示n=1..10000

%ta[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}]（*_Robert G.Wilson v_，2005年8月12日*）

%o（哈斯克尔）

%o导入数据。列表（elemIndex）；导入数据。也许（来自Just）

%o a109736=（+1）。来自Just。（`elemIndex`a109890_list）

%o--_Reinhard Zumkeller_，2015年1月1日

%Y参见A094341、A095259、A109890。

%K nonn公司

%O 1,2号机组

%A.N.J.A.Sloane和Nadia Heninger，2005年8月11日

%E更多条款，摘自2005年8月12日_Robert G.Wilson v_