登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A073759号 既不是n的除数也不是n的相对素数的最大数,如果不存在这样的数,则为0。 6
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日

状态

经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:2023年1月29日19:46 EST。包含359926个序列。(在oeis4上运行。)