%I#16 2015年11月27日00:17:26

%S 1,2,3,5,4,5,6,4,4,4，8,4,5，8,7,7,7，7,8,5,6，6,8,10,7，8,7，5,5，6,6,8，

%T 6,7,7,4,5,5,6,6,8,7,5,5A,6,7,11,5,4,8,12,7,9,5,8,8,9,10,14,11,12，

%U 11,9,11,13,12,12,11,12,12,12,10,9,9,8,6,10,9,10,8,7,8,11,10,10,12,9,6,5,5,4,7,6,7,9,7,7,5,11,13,8,10,12,13,13,10,10,13,10、12,10,12、9,8,12

%N a（N）=N在A155043中出现的次数。

%C记录为：1、2、3、5、6、8、10、11、12、14、16、17、19、21、22、24、25、26、27、31、35、39、44。。。它们出现在以下位置：0、1、2、3、6、10、24、49、54、62、117、236、445、484、892、893、1022、1784、1911、1912、1913、20600、50822。。。

%C a（n）给出了不规则表格A263265每行的长度。

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

%F a（n）=总和{k=n.A262502（2+n）}[A155043（k）==n]。（此处[…]表示艾弗森括号，当A155043（k）为n时为1，否则为0。）

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

%Fα（n）=A263279（n）+A263280（n）。

%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 uplim2=110880；\\=A002182（30）。

%o v262507=矢量（uplim2）；

%o表示（i=1，uplim，如果（v155043[i]<=uplim2，v262507[v155043[i]]++））；

%o A262507=n->如果（！n，1，v2262507[n]）；

%o表示（n=0，uplim2，写入（“b262507.txt”，n，“”，A262507（n））；

%o（方案）

%o（定义（A262507 n）（加上（λ（k）（如果（=（A15043 k）n）10））n（A262502（+2 n））））

%o；；辅助函数add实现sum_{i=lowlim..uplim}intfun（i）

%o（定义（添加intfun-lowlim-uplim）（让sumloop（（i lowlim）（res 0）））（cond（（>i uplim

%Y参见A000005、A060990、A155043、A262502、A2625505、A263265、A26270、A263279、A263280。

%Y参见A261089、A262503。

%Y参考A262508（1的位置）。

%Y参见A263260（部分总和）。

%K nonn公司

%0、2

%A _Antti Karttunen，2015年9月25日