A366251-OEIS公司

OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。

A366251型

具有互质除数移位的数字。

三

1, 3, 5, 7, 9, 11, 13, 17, 19, 21, 23, 25, 27, 29, 31, 35, 37, 39, 41, 43, 47, 49, 53, 55, 57, 59, 61, 63, 65, 67, 71, 73, 77, 79, 81, 83, 85, 89, 91, 93, 95, 97, 101, 103, 107, 109, 111, 113, 115, 117, 119, 121, 125, 127, 129, 131, 133, 137, 139, 143, 145 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,2`
	评论	`如果对于k的所有除数d，GCD（d+s，k）=1，则k有互质除数移位s。` `如果k在序列中，那么k的所有除数也在序列中。` `发件人大卫·A·科内斯，2023年10月6日：（开始）` `因此，如果某些m不在序列中，那么m的任何倍数也不在序列之中。所以所有的项都是奇数，因为序列中没有2。` `要查看k是否是一个项，我们可以执行以下操作：` `-检查k是否均匀；如果是这样，那么k不在序列中。` `-列出k的除数。设tau（k）是k的除数。然后，对于每个素数p＜＝tau（k），如果k的除数的余数mod p等于p，则k不在序列中。否则，根据中国剩余定理，我们可以找到一个数s，使得gcd（d+s，n）=1表示所有d。` `所以每一个奇数素数都是一个项。（结束）`
	链接	`M.Farrokhi D.G。，n=1..10000时的n，a（n）表`
	例子	`1是一个术语，因为GCD（1+0，1）=1。` `对于所有非负整数s，2不是一个项，因为GCD（1+s，2）>1或GCD（2+s，2中）>1。` `3是一个术语，因为GCD（1+1，3）=GCD（3+1，3）=1。`
	MAPLE公司	`aList:=proc（len）本地isds，findds；` `isds:=（k，s）->andmap（d->igcd（d+s，k）=1，数论：-除数（k））；` `结果：=k->ormap（s->isds（k，s），[seq（1..k）]）；` `选择（k->findds（k），[seq（1..len）]）结束：` `a列表（133）#彼得·卢什尼2023年10月6日` `#之后效率更高大卫·A·科内斯:` `isa:=proc（n）局部d，p，t；p:=3；` `如果irem（n，2）=0，则返回假fi；` `d:=数字理论：-除数（n）；` `而p<nops（d）do` `{seq（irem（t，p），t=d）}；` `如果nops（%）=p，则返回假fi；` `p:=下一素数（p）；` `od：真端：` `a列表：=len->select（isa，[seq（1..len）]）：` `a列表（145）#彼得·卢什尼2023年10月7日`
	数学	`isa[n_]：=模块[{d，p，t}，p=3；如果[Mod[n，2]==0，返回[False]]；d=除数[n]；当[p<长度[d]时，如果[Length[Union@表[修改[t，p]，{t，d}]==p，返回[False]]；p=下一素数[p]]；正确]；` `aList[len_]：=选择[Range[len]，isa]；` `a列表[145](让-弗朗索瓦·奥尔科弗2023年10月27日，之后彼得·卢什尼)`
	黄体脂酮素	`（PARI）` `isds（k，s）={fordiv（k，d，if（gcd（d+s，k）<>1，return（0））；1}` `findds（k）={for（s=1，k，if（isds（k，s），return（s））；0}` `选择（k->findds（k），[1..150]）\\安德鲁·霍罗伊德2023年10月5日` `（PARI）` `是（n）={` `if（！bit and（n，1），return（0））；` `my（d=除数（n））；` `对于素数（p=3，#d，` `如果（#Set（d%p）==p，` `返回（0）` `)` `); 1` `} \\大卫·A·科内斯2023年10月6日` `（间隙）` `互质DivisorShift:=函数（n）` `局部移位，除数；` `移位：=0；` `如果不是IsPrimeInt（n）和First（PrimeDivisors（n），p->互质DivisorShift（n/p）=无穷大），则失败` `移位：=无穷大；` `fi；` `如果移位<无穷大，则` `除数：=除数Int（n）；` `while shift<n and First（除数，d->GcdInt（d+shift，n）>1）<>fail do` `移位：=移位+1；` `od；` `如果shift=n，则` `移位：=无穷大；` `fi；` `fi；` `返回移位；` `结束；`
	交叉参考	`囊性纤维变性。A366219型,A366330型.` `上下文中的序列：A151991号 A360114 A265166型A336620型 A318978型 A327755型` `相邻序列：A366248型 A366249型 A366250型A366252型 A366253型 A366254型`
	关键词	`非n,容易的`
	作者	`M.Farrokhi D.G.先生。2023年10月5日`
	状态	`经核准的`

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

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

上次修改时间：美国东部夏令时2024年5月29日05:33。包含372921个序列。（在oeis4上运行。）