%I#22 2024年2月6日01:41:37
%S 0,1,1,1,2,1,2,2,1,3,1,2,3,2,1,4,1,3,3,2,2,1,4,2,3,1,5,1,3,1,32,2,
%T 3,5,1,2,3,4,1,5,1,3,5,2,5,2,5,2,4,3,1,5,3,4,2,1,7,1,2,5,3,5,3,5,1,3,
%U 3,5,1,7,1,2,5,3,3,51,5,4,2,1,7,3,2,3,4,1,8,3,3、2,3,6,1,4,5
%N整数对(x,y)的数量,使得0<x<=y<=N并且x*y=2n。
%C有关相关序列的指南,请参见A211266。
%H Antti Karttunen,n表,n=1..65537的a(n)</a>
%H David J.Hemmer和Karlee J.Westrem,<a href=“https://arxiv.org/abs/2402.02250“>回文分区和卡尔金-威尔夫树,arXiv:2402.02250[math.CO],2024。见第7页定理4.2。
%F a(n)=楼层((A000005(2n)-1)/2)_罗伯特·伊斯雷尔,2019年2月25日
%e a(12)计算这些对:(2,12),(3,8),(4,6)。
%e对于n=2,只有对(2,2)满足条件,因此a(2)=1.-_Antti Karttune_,2018年9月30日
%p seq(楼层(数量:-tau(2*n)-1)/2),n=1..100);#_罗伯特·伊斯雷尔,2019年2月25日
%t a=1;b=n;z1=120;
%t t[n_]:=t[n]=扁平[表[x*y,{x,a,b-1},
%t{y,x,b}]]
%t c[n_,k_]:=c[n,k]=计数[t[n],k]
%t表[c[n,n],{n,1,z1}](*A038548*)
%t表[c[n,n+1],{n,1,z1}](*A072670*)
%t表[c[n,2*n],{n,1,z1}](*此序列*)
%t表[c[n,3*n],{n,1,z1}](*A211271*)
%t表[c[n,楼层[n/2]],{n,1,z1}](*A211272*)
%tc1[n_,m]:=c1[n,m]=和[c[n,k],{k,a,m}]
%t打印
%t表[c1[n,n],{n,1,z1}](*A094820*)
%t表[c1[n,n+1],{n,1,z1}](*A091627*)
%t表[c1[n,2*n],{n,1,z1}](*A211273*)
%t表[c1[n,3*n],{n,1,z1}](*A211274*)
%t表[c1[n,楼层[n/2]],{n,1,z1}](*A211275*)
%o(PARI)A211270(n)=汇总(2*n,y,((2*n/y)<=y)&&(y<=n));\\_Antti Karttune_,2018年9月30日
%Y参考A000005、A211266、A211261。
%K nonn公司
%O 1,6型
%《百灵鸟金伯利》,2012年4月7日
%E条款a(2)由_Antti Karttune_修订,2018年9月30日
|