%I#4 2012年4月13日11:22:06

%S 0,0,0,1,1,1,2,1,2,1,1,3,1,2,2,3,1,1,4,2,2,1,4,4,4,1,4,2,2，

%第3,4,1,2,6,1,4,1,4,3,2,6,2,4,4,1,3,6,2,4,4,1,3,6,2,1,7,1,2,3,5,3,4,1,4段，

%U 2,6,1,6,1,2,4,4,3,4,1,8,2,1,1,7,3,2,6,16,3,2,3,7,14,3

%N整数对（x，y）的数量，使得0<x<=y<=N且x*y=3n。

%C有关相关序列的指南，请参见A211266。

%e a（20）计算这些对：（3,20），（4,15），（5,12），（6,10）

%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}]（*A211270*）

%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*）

%Y参考A211266。

%K nonn公司

%O 1,8型

%《百灵鸟金伯利》，2012年4月7日