%I#15 2015年10月24日12:21:41

%S 0,0,2,2,6,2,12,6,6,12,6,18,12,18,18,22,12,30,18,30,18,34,22,22,22,22，

%电话42,22,48,22,60,30,60,30-72,48,84,84,34,96,34108,42,96,42108,42，

%U 48,48120,48132,481322,48140，60140,48140,72140140,72140，84140，84140,60140,96140，96150，96156,96108108120,72120120132108140132140120140,84

%N a（N）=最大k，其中A155043（k）<A155043。

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

%F a（n）=A263082（A155043（n）-1）。

%ta[0]=0；a[n]：=a[n]=1+a[n-除数Sigma[0，n]]；表[k=3n；

%t而[a@k>=a@n，k--]；k、 {n，96}]（*迈克尔·德弗里格，2015年10月13日*）

%o（PARI）

%o分配（（2^31）+（2^30））；

%o uplim1=36756720+640；\\=A002182（53）+A002183（52）。

%o上行链路2=36756720；\\=A002182（53）。

%o uplim3=32432400；\\=A002182（52）。实际上只是一些比上面小的特殊值。

%o v155043=矢量（uplim1）；

%o vother=矢量（uplim3）；\\连续包含A262503和A263082。

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

%o表示（i=3，uplim1，v155043[i]=1+v155043[i-numdiv（i）]；如果（！（i%1048576），打印1（i，“，”））；

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

%o最大长度=0；对于（i=1，uplim2，len=v155043[i]；vother[len]=i；maxlen=max（maxlen，len）；如果（！（i%1048576），打印1（i，“，”））；\\首先是A262503。

%o打印（“uplim2=”，uplim2，“uplim3=”，uplim3，“maxlen=”，maxlen）；

%o\\然后我们将其转换为A263082：

%o m=0；对于（i=1，maxlen，m=max（m，vother[i]）；vother[i]=m；如果（！（i%1048576），打印1（i，“，”））；

%o A263082=n->如果（！n，n，vother[n]）；

%o A263077=n->A263082（A155043（n）-1）；

%o\\最后我们可以计算A263077：

%o表示（i=1，uplim3，写入（“b263077.txt”，i，“”，A263077（i））；）；

%Y参见A155043、A261089、A262503、A263078、A2630.79、A263080、A2630.82。

%K nonn公司

%氧1,3

%2015年10月9日