%I#23 2022年9月8日08:46:18
%S 2,14,21,33,34,38,44,57,75,85,86,93,94,98116118122133141142,
%电话:145147158171177201202205213214217218230244253285296,
%电话:29830130232633233437538387393394429434445446453481
%N对k进行编号,使Sum_{d|k}tau(d)=Sum_}d|k+1}tau。
%C tau(n)是n(A000005)的正除数。
%C编号k,使A007425(k)=A007422(k+1)。
%C A052213和A005237的子序列。
%C序列与A052213不同,第一个偏差为a(212):A052211(212。数字2024是最小的数字n,因此A007425(n)=A007422(n+1),数字n和n+1具有不同的素数签名(2024=2^3*11*23,2025=3^4*5^2;A007425=2024)=A00.7425(2025)=90)。
%C最小数k的序列,使得Sum_{d|k}tau(d)=Sum_}d|k+1}taun>=1:1,2,3319940204323380480345440738966073。。。;推测:这个序列与A034173不同。
%H Amiram Eldar,n的表,n=1..100000的a(n)(Jaroslav Krizek的术语1..1000)
%e2是一个项,因为Sum{d|2}tau(d)=Sum{d_3}tau[d)=1+2=3。
%t选择[Range@500,Total@Map[DivisorSigma[0,#]&,Divisors@#]==Total@Map[divisorSigra[0,#]&,Divisors[#+1]]&](*_Michael De Vlieger_,2016年12月25日*)
%o(Magma)[n:n in[1..10000]|&+[NumberOfDivisitors(d):d in Divisitors(n)]eq&+[NumberOfDivisitors(d):d in Divisitors(n+1)]]
%o(PARI)sd(n)=汇总(n,d,numdiv(d));\\A007425号
%o isok(m)=sd(m)==sd(m+1);\\_Michel Marcus,2020年4月28日
%Y参考A000005、A005237、A007425、A052213。
%K nonn公司
%O 1,1号机组
%A_Jaroslav Krizek,2016年12月25日
|