%I#22 2015年11月27日20:49:26

%S 0,1,3,5,7,13,17,19,23,27,29,31,35,37,41,43,51,53,57,59,61,65,67,71，

%电话73,77,79143149151155161163173177179181185191193199，

%电话：203209211215219223231233723924124925126326269277278285291293299303313173323233337341347349357359369515

%N a（N）=最小k，使A155043（k）=N；A155043中的记录位置。

%C注意，除了0之外还有偶数项，它们似乎都是正方形：a（915）=7744（=88^2），a（41844）=611524（=782^2），a（58264）=872356（=934^2），a（66936）=1020100（=1010^2），a（95309）=1503076（=1226^2），a（105456）=1653796（=1286^2）。。。

%H Antti Karttunen，n表，n=0..110880的a（n）</a>

%F其他身份。对于所有n>=0：

%F A155043（a（n））=无。

%t极限=80；a[0]=0；a[n]：=a[n]=1+a[n-除数Sigma[0，n]]；t=表[a@n，{n，0，12 lim}]；表[First@Flatten@Position[t，n]-1，{n，0，lim}]（*_Michael De Vlieger_，2015年9月29日*）

%o（PARI）

%o分配（123456789）；

%o上传=2162160；\\=A002182（41）。

%o v155043=矢量（uplim）；

%o v155043[1]=1；v155043[2]=1；

%o表示（i=3，uplim，v155043[i]=1+v155043[i-numdiv（i）]）；

%o A155043=n->如果（！n，n，v155043[n]）；

%o n=0；k=0；而（k<=10000，如果（A155043（n）==k，则写入（“b261089.txt”，k，“”，n）；k++）；n++；）；

%o（方案，带有_Antti Karttunen_的IntSeq-library，两种变体）

%o（定义（A261089 n）（让回路（（k 0）））（如果（=n（A155043 k））k（回路（+1 k））））

%o（定义A261089（RECORD-POS 0 0 A155043））

%o（哈斯克尔）

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

%o a261089=来自Just。（`elemIndex`a155043_list）

%o——_ Inhard Zumkeller_，2015年11月27日

%Y参考A000005、A155043、A049820、A259934、A261103。

%Y参考A262503（A155043中最后出现的n）。

%Y参考A262505（最后一次和第一次出现的差异）。

%Y参考A262507（A155043中n的出现次数）。

%Y Cf也指A261085、A261088。

%K nonn公司

%0、3

%2015年9月23日，安蒂·卡图宁