%I#6 2021年1月6日17:48:36
%S 1,2,3,4,5,6,9,8,7,10,15,12,25,18,3,16,11,14,21,20,1,30,45,24,49,50,
%电话:75,36125,6,81,32,1,22,3,28,55,42,3,40,77,2105,60,35,90135,48121,
%U 98,3100245150,75,72,7250375,12625162,9,64,1,2,39,44,5,6,99,56,91110,3,84,5,6189,80143154231
%N a(N)=gcd(A005940(N),A324106(N)),其中,A324104(N)与a(p^e)=A005940。
%H Antti Karttunen,n的表,n的a(n)=1..16384</a>
%F a(n)=gcd(A005940(n),A324106(n)。
%o(PARI)
%o A005940(n)={my(p=2,t=1);n---;直到(!n\=2,if((n%2),(t*=p),p=下一素数(p+1));t};\\来自A005940
%o A324106(n)={my(f=系数(n));prod(i=1,#f~,A005940(f[i,1]^f[i、2]));};
%o A340364(n)=gcd(A005940(n),A324106(n));
%Y参考A005940、A324106、A340362、A340365和A340366。
%Y参见A339969。
%K nonn公司
%O 1,2号机组
%A _Antti Karttunen_,2021年1月6日
|