%I#24 2015年12月23日14:02:37
%S 1,3,6,5,8,7,9,0,0,11,14,13,18,0,20,17,24,19,22,0,23,25,27,0,032,
%T 29,0,31,34,35,40,0,38,37,0,44,41,0,43,46,0,50,47,49,51,56,0,53,0,
%U 57,58,0,0,59,62,61,72,65,68,68,0,67,0,0,71,74,73,84,77,0,0,81,79,82,0,88
%N a(N)=使k-τ(k)=N的最小数k,如果不存在该数,则为0,其中τ(N)=N(A000005)的除数。
%对于奇素数p,C a(p-2)=p。
%H Antti Karttunen,n的表,n=0..124340的a(n)</a>
%F其他身份和观察结果。对于所有n>=0:
%F a(n)<=A262686(n)。
%p N:=1000:#以获得(0)。。a(否)
%p V:=阵列(0..N):
%p代表k从1到2*(N+1)do
%p v:=k-数量理论:-τ(k);
%p如果v<=N且v[v]=0,则v[v]:=k fi
%操作说明:
%p序列(V[n],n=0..n);#_罗伯特·伊斯雷尔(Robert Israel),2015年12月21日
%t表[k=1;而[k-除数Sigma[0,k]!=n&&k≤2(n+1),k++];如果[k>2(n+1),0,k],{n,0,80}]](*Michael De Vlieger_,2015年12月22日*)
%o(PARI)
%o分配(123456789);
%o uplim1=2162160+320;\\=A002182(41)+A002183(41”)。
%o上行链路2=2162160;
%o v082284=矢量(uplim1);
%o A082284=n->如果(!n,1,v082284[n]);
%o表示(n=1,uplim1,k=n-numdiv(n));如果((0==A082284(k)),v082284[k]=n));
%o表示(n=0,124340,写入(“b082284.txt”,n,“”,A082284(n));
%2015年12月21日
%o(方案)
%o(定义(A082284 n)(如果(零?n)1(let((u(+n(A002183(+2(A261100 n))))
%o_Antti Karttunen,2015年12月21日
%A265751的Y列1。
%Y参考A000005、A002182、A002183、A049820、A060990、A261100。
%Y参见A262686(此类最大数字)、A262511(这些数值相等且非零的位置)。
%Y参见A266114(同一序列按升序排序,去掉零)。
%Y参见A266115(此序列中缺少正数)。
%Y参考A266110(达到零之前的迭代次数)、A266116(达到最终非零值)。
%参见树A263267及其图示。
%K nonn公司
%0、2
%A _Amarnath Murthy,2003年4月14日
%E 2004年8月31日来自_David Wasserman的更多条款
|