%I#40 2015年10月12日21:25:27
%S 2,2,1,1,1,1,3,0,0,1,1,3,1,0,11,1,2,1,0,0,1,4,1,0,2,0,2,1,1,0,0,
%温度2,2,0,0,2,0,1,0,1,0,1,1,3,1,2,0,1,2,2,0,1,1,1,0,0,1,2,0,0,
%U 0,2,4,1,1,0,0,1,1,2,0,1,0,1,2,1,1,1,0,1,1,2,0,1,1,1,1,1,1,1,2,1,1,0,0,1,1
%N x-d(x)=N的解的数目,其中d(N)是N(A000005)的除数。
%C如果x-d(x)从不等于n,则n在A045765中,a(n)=0。
%C A049820(x)的溶液数量=n.-_Jaroslav Krizek_,2014年2月9日
%H Antti Karttunen,<a href=“/A0609090/b060990.txt”>n,a(n)表,n=0..110880</a>
%F a(0)=2;对于n>=1,a(n)=和{k=n…n+A002183(2+A261100(n))}[A049820(k)=n]。(此处[…]表示艾弗森括号,A049820(k)为n时为1,否则为0。)-_Antti Karttune_,2015年9月25日,于2015年10月12日更正。
%F a(n)=总和{k=A082284(n)..A262686(n)}[A049820(k)=n]
%F其他身份和观察结果。对于所有n>=0:
%F a(A045765(n))=0。a(A236562(n))>0_雅罗斯拉夫·克里泽克,2014年2月9日
%e a(11)=3,因为三个数满足方程x-d(x)=11,即分别具有{2,4,5}除数的{13,15,16}。
%t极限=105;s=表[n-除数Sigma[0,n],{n,2lim+3}];长度@位置[s,#]和/@范围[0,lim](*迈克尔·德弗里格,2015年9月29日,在韦斯利·伊万·赫特之后,A049820*)
%o(PARI)
%o分配(123456789);
%o上传=2162160;\\=A002182(41)。
%o v060990=矢量(uplim);
%o表示(n=3,uplim,v060990[n-numdiv(n)]++);
%o A060990=n->如果(!n,2,v060990[n]);
%o上行链路2=110880;\\=A002182(30)。
%o表示(n=0,uplim2,写入(“b060990.txt”,n,“”,A060990(n));
%o\\_Antti Karttunen_,2015年9月25日
%o(方案)
%o(定义(A060990 n)(如果(零?n)2(添加(λ(k)(如果)(=(A049820 k)n)10))n(+n(A002183(+2(A261100 n))))
%o;;辅助函数add实现sum_{i=lowlim..uplim}intfun(i)
%o(定义(添加intfun-lowlim-uplim)(让sumloop((i lowlim)(res 0)))(cond((>i uplim
%o;;给定公式的验证码,由_Antti Karttune_于2015年9月25日提供
%Y参见A000005、A002183、A049820、A049816、A082284、A155043、A236561、A236565、A259934、A261100、A262507、A262513、A262686。
%Y参见A045765(零位置)、A236562(非零位置)和A262511(一位置)。
%Y参考A263087(按平方计算)。
%K nonn公司
%0、1
%A _Labos Elemer,2001年5月11日
%E偏移由Jaroslav Krizek修正,2014年2月9日
|