A073759-OEIS公司

A073759号

最大数<n，既不是n的除数，也不是n的相对素数，如果不存在，则为0。

0, 0, 0, 0, 0, 4, 0, 6, 6, 8, 0, 10, 0, 12, 12, 14, 0, 16, 0, 18, 18, 20, 0, 22, 20, 24, 24, 26, 0, 28, 0, 30, 30, 32, 30, 34, 0, 36, 36, 38, 0, 40, 0, 42, 42, 44, 0, 46, 42, 48, 48, 50, 0, 52, 50, 54, 54, 56, 0, 58, 0, 60, 60, 62, 60, 64, 0, 66, 66, 68, 0, 70, 0, 72, 72, 74, 70, 76

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,6

n的最大“无关”数。

发件人迈克尔·德弗利格2016年3月28日（开始）：

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

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

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

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

对属于n的无关数m的检验是1<gcd（m，n）<m。

（结束）

链接

迈克尔·德弗利格，n=1..10000时的n，a（n）表

例子

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

数学

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=选择[r=范围[n-1]，可分割[n，#]||GCD[n，#]==1&]；最大值[Join[{0}，Complement[r，t]]，{n，78}](*贾扬达·巴苏，2013年7月9日*）

表[SelectFirst[Range[n-2，2，-1]，1<GCD[#，n]<#&]/。n/；错过Q@n->0，{n，100}](*迈克尔·德弗利格，2016年3月28日，10.2*版）

黄体脂酮素

（PARI）a（n）={对于步骤（k=n-2，1，-1，如果（（gcd（n，k）！=1）&&（n%k），返回（k）；）；0；}\\米歇尔·马库斯2016年3月29日

交叉参考

囊性纤维变性。A045763号,A073758号.

上下文中的序列：A073758号 A133995号 A019629号*A066760型 A102393年 A228131型

相邻序列：A073756号 A073757号 A073758号*A073760型 A073761号 A073762号

关键词

非n

作者

拉博斯·埃利默2002年8月15日

扩展

姓名澄清人肖恩·欧文2024年12月18日

状态

经核准的