%I#20 2016年3月29日23:37:34

%S 0,0,0,1,0,4,0,6,6,8,0,10,12,14,0,16,0,18,18,20,0,22,20,24,24,26，

%温度0,28,0,30,32,30,34,0,36,36,38,0,40,0,42,42,44,0,46,48,50,0，

%U 52,50,54,54,56,0,58,0,60,60,62,60,64,0,66,68,0,70,0,72,72,74,70,76

%N既不是N的除数也不是N的相对素数的最大数，如果不存在这样的数，则为0。

%C与n最大的“无关”数。

%C发件人：Michael De Vlieger_，2016年3月28日（开始）：

%C素数n没有无关数m<n，因为所有这些数都是n的互素。

%C无关数m必须是复合数，因为素数必须除n或与n互素。

%C m=1在除以时不被视为无关，并且与n互素。

%C a（4）=0，因为4是最小的复合数，与n无关的数字m必须是复合数，并且小于n。所有其他复合数n至少有一个无关的数字m。

%C对属于n的无关数m的测试是1<gcd（m，n）<m。

%C（结束）

%H Michael De Vlieger，n的表，a（n）表示n=1..10000</a>

%e n=20：无关集为20={6,8,12,14,15,16,18}，最大为a（20）=18。

%t tn[x_]：=表[w，{w，1，x}]；di[x_]：=除数[x]；dr[x_]：=并集[di[x]，rrs[x]]；rrs[x_]：=压扁[位置[GCD[tn[x]，x]，1]]；unr[x_]：=补码[tn[x]，dr[x]]；表[Max[unr[w]]，{w，1，128}]；（对于空集，使用了0）。

%t表[t=选择[r=范围[n-1]，可分割[n，#]||GCD[n，#]==1&]；Max[Join[{0}，Complete[r，t]]，{n，78}]（*_Jayanta Basu_，2013年7月9日*）

%t表格[SelectFirst[Range[n-2，2，-1]，1<GCD[#，n]<#&]/。n/；MissingQ@n->0，{n，100}]（*Michael De Vlieger_，2016年3月28日，10.2*版）

%o（PARI）a（n）={forstep（k=n-2，1，-1，if（（gcd（n，k）！=1）&&（n%k），return（k）；）；0；}\\米歇尔·马库斯，2016年3月29日

%Y参考A045763、A073758。

%K nonn公司

%O 1,6型

%A _Labos Elemer_，2002年8月15日