%I#16 2016年12月18日01:35:00
%S 1,2,1,3,1,3,3,4,4,5,4,3,5,7,7,7,7,7,8,9,6,7,7,7,8,11,12,11,11,11,
%电话:12,12,12,13,13,11,11,13,12,14,13,15,14,14,15,16,16,17,19,18,
%U 17,18,19,18,19/18,18,20,18,21,22,20,20,20-20,20,19,21,21,24,23号机组
%N中心二项式系数的幺正素因子的个数,C(2n,N)=A000984(N),即指数等于1的C(2n,N)中的素因子个数。
%H T.D.Noe,n的表格,n=1..2000的a(n)</a>
%F a(n)=A056169(A000984(n))。
%e n=10:C(20,10)=184756=2*2*11*13*17*19;unitary-p-divisors={11,13,17,19},因此a(10)=4。
%t表[函数[m,计数[Divisors@m,k_/;和[PrimeQ@k,GCD[k,m/k]==1]]@二项式[2n,n],{n,50}](*_Michael De Vlieger_,2016年12月17日*)
%o(PARI)a(n)=my(f=因子(二项式(2*n,n)));总和(k=1,#f~,f[k,2]==1);\\_Michel Marcus,2016年12月18日
%Y参见A000984、A067434、A081387-A081389、A034444、A048105、A056170、A056169。
%K nonn公司
%O 1,2号机组
%A _Labos Elemer,2003年3月27日
|