%I#20 2019年1月27日02:59:07
%S 1,1,2,2,1,3,4,2,6,3,1,4,12,6,2,8,9,3,12,4,16,18,6,24,27,1,32,36,12,
%电话:48,54,2,64,72,81,3,96108,4128144162,6192216,8,1,9288324,12,
%U 384432,16,2,18576648,24,3,27864,32,4,3611521296,48,6,541728,64,8,72,9,812592,96,12
%N第N个和(N+1)个3-光滑数的最大公约数。
%C A186712显示此函数和3光滑数A003586在同一范围内的位置:a(A186712n)=A003586n和a(m)!=A003586(n)适用于m<A186712(n)。
%H Reinhard Zumkeller,n的表,n=1..10000的a(n)</a>
%F a(n)=A050873(A003586(n+1),A003585(n))。
%Fα(A186771(n))=1。
%p A186711:=proc(n)igcd(A003586(n),A003586(n+1));结束程序:#R.J.Mathar,2011年2月28日
%t S3=选择[Range[3*10^4],FactorInteger[#][[-1,1]]<=3&];表[GCD[S3[[n]],S3[[n+1]],{n,1,长度[S3]-1}](*_Jean-François Alcover_,2018年2月2日*)
%o(哈斯克尔)
%o a186711 n=a186711_list!!(n-1)
%o a186711_list=zip带有gcd a003586_list$tail a003586_list
%Y参考A003586、A050873、A061987、A186771。
%K nonn公司
%O 1,4型
%A_Reinhard Zumkeller,2011年2月26日
|